while ( $char le 'z' )