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

foreach my $value (values %hash) {
    print "value = $value\n";
}#foreach

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