my @array_I_just_created_here = (a .. z); my @hash_I_just_created_here{@array_I_just_created_here} = (); print "yes, c is a letter that would exist within that array you just created there.$/" if exists $hash_I_just_created_here{"c"}; #### my $found = 0; my @array_I_just_created_here = (a .. z); $found |= ("c" eq $array_I_just_created_here[$_]) foreach (0..$#array_I_just_created_here); print "yes, c is a letter that would exist within that array you just created there.$/" if $found; #### my $find_item = "c"; my @array_I_just_created_here = (a .. z); my $pos = bin_search(\@array_I_just_created_here, $find_item, 0, $#array_I_just_created_here); print "yes, c is a letter that would exist within that array you just created there.$/" if ($a[$pos] eq $find_item); sub bin_search { my ($array, $val, $min, $max) = @_; my $pos = int($min + $max / 2); my $check = $val cmp $array->[$pos]; if ($check == -1) { $pos--; return $pos if ($pos <= $min); return bin_search($array, $val, $min, $pos); } elsif ($check == 0) { return $pos; } else { $pos++; return $pos if ($pos >= $max); return bin_search($array, $val, $pos, $max); } } #### print "yes, c is a letter that would exist within that array you hadn't created there.$/" if "c" =~ m/^(?:a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z)$/; #### use Quantum::Superpositions; my @array_I_just_created_here = (a .. z); print "yes, c is a letter that would exist within that array you just created there.$/" if ("c" eq any(@array_I_just_created_here);