...
# get all ttct files from here
my @file_list= glob("old/*.txt");

 for my $files (@file_list) {

    if ($now-(stat $files)[9]  > $age) { # file older than 7 days
     print "$files\n";
    }

 }