foreach my $filename (@filenames) {
  push @filesanddates, [ ( $filename, (stat ($filename))[9] ) ];
}