I think this code helps u to solve the issue

my @array = qw/THIS this there THERE prasanna/;
%temp = ();
map{$temp{lc($_)}++}@array;
for (sort keys %temp) {
print "$_=>$temp{$_}"."\n";
}
[download]

-prasanna.K