length($str)         =>  scalar(@str)
substr($str,$i-1,1)  =>  $str[$i-1]