Select Code to Download

my %elements = map { $_ => 1 } @array;

...
    # then let the hash find the transformation
    print "Success!" if exists $elements{$transformed_element};
}

my %elements = map { $_ => 1 } @array;

...
        }
    }
}