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