print "please enter one character: ";
$char = <>;
while ($char ne ".") {
if ($char eq "a") {
$count++;
}
print "please enter one character: ";
$char = <>;
}

print "The number of a is $count";
print "done";