Select Code to Download

  DB<110> %hash = ("fred" => "flintstone", "dino" => undef, "barney" =
+> "rubble", "betty" => "rubble");

...
          'dino' => undef,
          'fred' => 'flintstone'
        };

  DB<115> $length = 0 + keys %hash
 => 4
...
     betty    =>    rubble
      dino    =>          
      fred    =>flintstone

  DB<123> $template = "%10s\t=>%10s\n" x (0 + keys %hash)
%10s    =>%10s
...
     betty    =>    rubble
      dino    =>          
      fred    =>flintstone