DB<123> $template = "%10s\t=>%10s\n" x (0 + keys %hash)
%10s	=>%10s
%10s	=>%10s
%10s	=>%10s
%10s	=>%10s

  DB<124> printf $template, %hash;
    barney	=>    rubble
     betty	=>    rubble
      dino	=>          
      fred	=>flintstone