$in =~ /^([^\t]*\t[^\t]*)/;
$key = $1;