[Phantazm]

changed the code tho this.
it should be quite as good

foreach (@test) {
if ($_ =~ /\....$/i) { push (@files,$_); }
else { push (@dirs,$_); }
}

hopefully no filenames ends with .???

So now i'm pretty happy again