Count lelters in entered text

count.pl

#!/usr/bin/perl -w

use strict;

print "Enter text: ";
my $text = <>;
chomp($text);
my @letters=();
my @chars=split(//,$text);
for my $char (@chars) {
	$letters[ord($char)]++;
}
print "Letters in text\n";
for(my $letter=0; $letter <= $#letters+1; $letter++) {
	if ($letters[$letter]) {
		print "Letter '".chr($letter)."':".$letters[$letter]."\n";
	}
}