my %data;
while (<FILE>) { 
    my ($name, $val) = split /\s+/;
    push @{ $data{$name} }, $val;
}