my $code = join "\n;\n", map {sprintf '$count{ $_ } = tr/%s/%s/', $_, $_ } @alphabet;
my %count;
local $_ = $string1;
eval $code;