OUTER_LOOP: foreach my $item qw(this that the_other)
{
    print "$item:\n";
    keys %hash;
    # keys resets the iterator on %hash so that our
    # subsequent calls to each will get all the
    # pairs in the hash.  This is necessary in
    # case the iterator was left in mid-hash
    # by a previous loop-through that was aborted.
    while (my ($key, $value) = each %hash)
    {
        print "  $key => $value\n";
        if ($item eq 'that' && $key eq 'baz')
        {
            print "bailing out!\n";
            next OUTER_LOOP;
        }
    }
}

##</code><code>##

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}