while (chomp($input=$handle->getline))
 {
  @temp=split("\t",$input);
  $index[$temp[0]]=$temp[1];
 }