Select Code to Download

my $ismember = exists $hash{string};

my %hash = map { $_ => $_ } @array;
print($hash{string1}, "\n");
print($hash{string2}, "\n");
print($hash{string3}, "\n");

use List::Util qw( first );
my $idx = first { $array[$_] eq "string" } 0..$#array;

sub ismember {
   my ($array, $search) = @_;
...
}

my $idx = ismember(\@array, "string");