while (<DATA>) {
    my ($key, $val) = split;
    push @{$hash{$key}}, $val;
}