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

sub crunchit {
   ...
}