Select Code to Download

my @sorted = sort {
    ( $times{$a} ||= -M $a ) <=>
    ( $times{$b} ||= -M $b )
} @old_array;

for ( @old_array ) {
    $times{ $_ } = -M $_;
}

my @sorted = sort { $times{$a} <=> $times{$b} } @old_array;