while (<PF>) {
   chomp;
   @_ = split("\t", $_);
   $passfile{ $_[0] } = $_[1];
}
close PF;