#!/usr/bin/perl -w

use strict;

my %foo;
%foo =  map {('sum') => $foo{'sum'}+=$_ } qw/2 2/;
print $foo{sum};