#!/usr/bin/perl

@filenames = <*>;

@modified =
        map { $_->[0] }
            sort { $a->[1] <=> $b->[1] }
                # -M is when $_ was last modified
                map { [ $_, -M ] }
                    @filenames;

print join("\n", @modified);