for my $k (keys %hash) {
          print "$k => $hash{$k}\n";
}