print"key in any 4 alpha char :"; chomp($string_name=); for($i='aaaa',$c=0;$i le $string_name;++$i,++$c){} print"$string_name is the $c th value starting from a\n";