...
use List::Util qw{ max };
...
my %filesByAge = map { ( stat $_ )[ 9 ], $_ } glob q{*.rtf};
my $mostRecent = $filesByAge{ max keys %filesByAge };
...