Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    
    # do I have to resort to this?
    print join( ' ', map{ $_->{d} } @hoh{@keys} ), "\n"; # a4 c4
    
  2. or download this
    # yikes!!
    print join( ' ', @hoh{@keys}{@keys} ), "\n"; # a1 a3 c1 c3 ??