Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   sort
   map { pack q{aN}, $data{ $_ }->{ key }, 0 + $_ }
   keys %pick;
  2. or download this
    key 13 and a
key 15 and a
...
key 14 and e
key 39 and e
key 77 and e
  3. or download this
    printf qq{key %2d and %s\n}, reverse unpack q{aN} for
   sort
   map { pack q{aN}, $data{ $_ }->{ key }, 0 + $_ }
   keys %pick;