my %sorted_msgs;
for (@lines) {
   my $key = obtain key here;
   my $value = [ value array items here ];
   push @{$sorted_msgs{$key}}, $value;
}
[download]