use strict;
use warnings;

{
    my %hash = (
        'a' =>  1,
        'b' =>  2,
        'c' =>  3,
    );

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

##</code><code>##

   while ( my($key, $value) = each %hash ) {
        print "$key = $value\n";
        foreach my $key (keys %hash) {
            print "\t$key\n";
        }
    }