my %hash = ("fred" => "flintstone", "dino" => undef, "barney" => "rubble", "betty" => "rubble"); my @keys = keys %hash; printf ("%10s\t=>%10s\n", "Keys", "Values"); map ((printf ("%10s\t=>%10s\n", $_, $hash{$_})), @keys);