##
foreach my $dir (@directories)
{
foreach my $file (@filenames)
{
$age = -M "$dir/$file"; # see the difference?
....
##
##
foreach my $dir (@directories)
{
chdir $dir or die "Couldn't chdir to $dir: $!\n";
foreach my $file (@filenames)
{
$age = -M $file;
....
}
chdir ".." or die "Help, I stranded myself";