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

my @keys = qw{ a b c d };
my %hash = map { $_++ } @keys;

warn "Dump " . dump( %hash ) . "\n";