my $last = ( sort {-M $a <=> -M $b} glob('*.rtf') )[0];