my $code2 = join "\n+\n", map {sprintf 'abs($count{ %s } - tr/%s/%s/)', $_, $_, $_ } @alphabet;
local $_ = $string2;
eval $code2;