Select Code to Download

my %hash = ();
my $dummy = map( $hash{ $_ } = 1, @array );
...
if ( defined( $hash{ $checkthis )) {
    ...
}

my $found = ( $_ eq $checkthis ) && last for ( @array );

use strict;
use warnings;
...
    else {
        die "Invalid parent reference";
    }