my %hash;
while(<INFILE>)
{
   chomp;
   my $line = $_;
   
    my ($key, @val) = split /\t/, $line, 2;
    push @{ $hash{$key} }, @val;
}