#!/usr/bin/perl
use Data::Dumper;

%h = (
  1 => "one",
    2 => "two",
    3 => "",
    4 => "four",
#  5 => "five",
 );

print "h is " . scalar %h . "\n";

print "Dump is " . Dumper(\%h);


##</code><code>##

# perl test.pl
h is 4/8
Dump is $VAR1 = {
          '1' => 'one',
          '2' => 'two',
          '3' => '',
          '4' => 'four'
        };