open ( my $in, "input.txt");
@let=('a'..'z');
foreach my $let(@let) {
	$hash{$let}=1;
}

while (my $line=<$in>){ #вычленили строку
	chomp($line);
	@words=split(' ',$line); #массив слов строки
	print (@words);
	foreach my $word(@words){
		@doc=split(//, $word); #слово на буквы
		$first=shift@doc; #первая буква слова
		foreach my $let(@let) {
			if ($first=$let) {
				$hash{$let}++;
			}	
		}
	}
}
foreach my $let(@let) {
	print "$let vstretilos $hash{$let} raz(a)\n";
}