chomp;
(my $k, my @v) = /(\S*\s*\S*\s*)(\S*\s*\S*\s*)/;
push @{$h{$k}} , shift @v;

##</code><code>##

foreach my $key (sort keys %h) {
    print "$key";
    foreach my $a (@{$h{$key}}) {
        print "$a ";
    }
    print "\n";
}