Well, this smells like homework, but I'd do it like this:

use strict;
my $head;
my %hash;
while (<>) {
    $head = (split)[0];
    push @{$hash{$head}}, $_;
}
[download]

Update: Sigh. I'm late.