#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $str = 'I love CGI and love perl'; my %strCount; my $count = 0; for my $i (0..length($str)-1) { #print substr($str, $i, 1)."\n"; #push(@count, substr($str, $i, 1)); if (!exists $strCount{substr($str, $i, 1)}) { $strCount{substr($str, $i, 1)} = 0; }else{ $strCount{substr($str, $i, 1)} = $strCount{substr($str, $i, 1)}+1; } } print Dumper(\%strCount);