my $i = 0;
$i++ while $stl =~ /$key1/g;
[download]

See perldoc perlre for the /g flag. And in general if you're trying to access a string character-by-character you're not thinking Perl, you're thinking C (or the like).