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
[download]