perl -wle '%h =  map {(qq{sum}) => $h{'sum'}+=$_ } qw/2 2/; print $h{sum}'