my ($recent, $age);

while(<DATA>){
    chomp;
    my $cur_age = -M $_;
    $recent = $_, $age = $cur_age if $cur_age < $age;
}