Select Code to Download

my %sorted_msgs = map { $_[5], $_[0] }
                  sort { Date_Cmp($a->[1], $b->[1]) }
...
sub crunchit {
   ...
}