1 2 123456789012345678901234567 sub b262b10{ my$n;$n++for"a"..lc$_[0];$n }