#!/usr/bin/perl -w

use strict; 
use diagnostics;
my %values = ();

unless (open (INFILE, "inputHash.txt")){ die "Cant open input.txt: $!";}
# opens the file read only

while (<INFILE>){
    chomp;
    next unless (/\t/);
    my ($key, $value ) = split(/\t/, $_, 2);
    $values{$key}=$value;
}
close (INFILE);  #close input file

unless (open (OUTPUT, ">popHash.txt")){die "Cant open popHash.txt: $!";}

foreach my $key (keys %values) {
    print OUTPUT "$key $values{$key}\n";
}