use strict;
my( @list ) = <DATA>;
chomp @list;
my $buildup = join '|', @list;
my $regexp = qr/$buildup/;
my $s = huey';
print "match:\t$s\n" if $s =~ $regexp;
__DATA__
huey
dewey
louie