Select Code to Download

    

#!usr/bin/perl -w 
...
foreach my $key (keys(%people)) {
print "\n".$key."\t".$people{$key}{numbx2}."\t".$people{$key}{number};
}

#!usr/bin/perl -w 
...
    print "\n".$key."\t".$people{$key}{$pkey}; 
  } 
}