#!/usr/bin/perl

use strict;
use warnings;

my @array = (qw(peter paul john mary));
my $name = 'jim';
my %lookup = map { $_ => undef} @array;
die "$name not found\n" unless exists $lookup{$name};
print "found $name\n";