#!/usr/bin/perl -w
use strict;
use Data::Dump qw(dump);

my @keys = qw{ a b c d };
my %hash = ();
for (@keys) {
    $hash{$_}++;
}
warn "Dump " . dump( %hash ) . "\n";