my %hash = (a=>2, b=>1, c=>5, d=>3, e=>4); my $input = "abcdaeec"; my @v = map $hash{$_}, (split //, $input); for my $n (2, 3) { my @w = map $v[$_] + $v[$_ + $n], 0 .. $#v - $n; print "@w\n"; } __END__ 7 4 7 7 6 9 5 3 9 7 7