Select Code to Download

my ($oldest) = 
    map   { $_->[0] } 
    sort  { $b->[1] <=> $a->[1] } 
    map   { [ $_, -M $_ ] } 
    <*>;