my %an_hash;

while (<A_FILE>) {
 chomp;
 chomp(my $tmpvalue=<A_FILE>);
 $an_hash{$_}=$tmpvalue;
}