print pos $h->{s}, "\n" while $h->{s} =~ /a/g;