my $key = (split/\t/, $line)[0];