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