use strict;
use warnings;

##</code><code>##

foreach my $filepage (@dirarray) {...};

##</code><code>##

foreach (@dirarray) { 
my $filepage = $_;
..
}