!$array[$_] and substr( $string, $_, 1 ) = lc substr( $string, $_, 1 )
    for 0 .. $#array;