#!/usr/bin/env perl my %hash = ( foo => 'one', bar => 'two', baz => 'san', ); ### %hash while (my ($k, $v) = each %hash) { print "W $k\n"; } print "F $_\n" for keys %hash; print "bye\n"; $ perl t.pl W bar W baz W foo F bar F baz F foo bye$…