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

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