Select Code to Download

my $arr = [7,8,11];
$hash{one}[$_] += $arr->[$_] for 0 .. $#{$hash{one}};

use Algorithm::Loops qw( MapCarE );

@{$hash{one}} = MapCarE { $_[0] + $_[1] } $hash{one}, [7,8,11];