#!/usr/bin/perl
use strict;

#   create alternation
my @list;
while (<DATA>) {
    chomp;
    push @list, $_;
}
my $regex = '[' . join('|', @list) . ']';

my $s = 'huey';

print "match:\t$s\n" if $s =~ m/\Q$regex/;
__DATA__
huey
dewey
louie