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"};
[download]

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;
[download]

my $find_item = "c";
my @array_I_just_created_here = (a .. z);

my $pos = bin_search(\@array_I_just_created_here, $find_item, 0, $#arr
+ay_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);
  }
}
[download]

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)$/;
[download]

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);
[download]