$checker =~ /^([^\t]*\t[^\t]*)/;
$checker_part = $1;
$list =~ /^([^\t]*\t[^\t]*)/;
$list_part = $1;
if($checker_part == $list_part){