for ($y = 0; $y < $length ; $y++ ) { 
		my($arg);
 		$arg = $_[$y];  
		if ( length $arg == 1 ) {
			$and = $and . " AND j$y.LumbolValue = '$arg' " ; 
		} elsif ( $arg eq "vowel\n"){ 
			$and = $and . " AND j$y.Vowel = 1 " ;   
		} elsif ( $arg eq "consonant\n"){ 
			$and = $and . " AND j$y.Consonant = 1 " ;  
		} elsif ( $arg eq "alpha\n"){ 
			$and = $and . " AND j$y.Letter = 1 " ; 
		} else  {
			$and = $and . " /* else:  y: $y arg: [$arg] */  " ;
		}
	}