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