use Algorithm::Loops qw( MapCarE );

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