#!/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);