#!/usr/bin/perl -w

use strict; 
use diagnostics;
my($line, $key, $value, $values);
my %values = ();

unless (open (INFILE, "inputHash.txt")){ die "Cant open input.txt\n";}
# 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\n";}

print OUTPUT "$values{$key} $value\n";