my %modtimes;
$modtimes{$_} = -M $_ foreach @filenames;
$modtimes{$first} = 1e99;
@filenames = sort { $modtimes{$b} <=> $modtimes{$a} } @filenames;