for my $k (keys %dict) {
  my $v=$dict{$k}; 
  warn 'for lookup:'.$k.' tab in field:'.$v."\n" if ($v=~"\t"); 
  }