use strict;
use warnings;

my %hash = ('Hello' => 'World');
while ( my ( $key, $value ) = each %hash ) {
      #my %otherhash = %hash;
      print "\n$key=$value";
}

print "\n------------------\n";

foreach ( keys %hash ) {
      my %otherhash = %hash;
      print "\n$_=$hash{$_}";
}

print "\n------------------\n";

foreach ( each %hash ) {
      my %otherhash = %hash;
      print "\n$_\n";
}

print "\n------------------\n";