You might want to move that close call outside of the loop:

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

-derby