in reply to Adding text file data to hashes and array

Looks like the key is column 1 only.

while (<DATA>) {
    my ($key,@fields) = split;
    $data{$key} = \@fields;
}

[download]
poj

In Section Seekers of Perl Wisdom