DB<115> $length = 0 + keys %hash
 => 4

  DB<116> printf "%10s\t=>%10s\n" x $length, %hash;
    barney	=>    rubble
     betty	=>    rubble
      dino	=>          
      fred	=>flintstone