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