in reply to Count and print in perl

please suggest something .

Read perlintro, begin