open(In,"dict.txt");
$a=0;
$b=0;
$c=0;
while(<In>){
chomp;
if($_=~/^a/){
$a++;
}
if($_=~/^b/){
$b++;
}
if($_=~/^c/){
$c++;
}
}
close(In);
print $a."\n";
print $b."\n";
print $c."\n";
open(In,"dict.txt");
$a=0;
$b=0;
$c=0;
while(<In>){
chomp;
if($_=~/^a/){
$a++;
}
if($_=~/^b/){
$b++;
}
if($_=~/^c/){
$c++;
}
}
close(In);
print $a."\n";
print $b."\n";
print $c."\n";