Select Code to Download

$n = minimum_key(\%h); # minimum_key left as an exercise
while (@n or ($n<maximum_key(\%h))) { # also maximum_key
...
   my $thiselement = shift @n;
   process_element($thiselement);
}

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$/}