while my $line (<$fh>){
my ($a, $b) = split (/=/, $line);
$hash{$a} = $b ;
}