foreach my $filename ( @filenames ) {
    # create an ANONYMOUS array (basically a reference to an array)
    my $record = [ $filename, -M $filename ];
    push @filesanddates, $record;
}