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