Select Code to Download

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

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