foreach my $filename (@filenames) {
  my $mtime=(stat ($filename))[9];
  my @fileanddate=($filename, $mtime);
  # Note lexical scoping of @fileanddate
  push @filesanddates, \@fileanddate;
}