foreach my $dir (@directories)
{
    foreach my $file (@filenames)
    {
        $age = -M $file;
    ....