foreach my $key (keys %hash) {
     print "$key \t $hash{$key} \n";
}