If you want to loop through the whole array with the for loop, wouldn't you want to have $#filenames+1 instead? Usually it would be much easier just to use @filenames in scalar context like so:

for(my $i=0;$i<@filenames;$i++){stuff...}

Also, you don't need to have a semi-colon to finish a statement if a brace immediately follows which means I can do stuff like:

sub foo{return reverse split//,shift} #no semi-colon :)
my $i = foo("oof rab");
print $i;
[download]

(to the root node)Just so I don't have to create another post, I noticed that some of your calls use arrays slices when what you want is array indexes. This means taht @array[-1] is different than $array[-1] and could possibly lead to problems.

Hope I helped :)

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.
[download]