use strict;
use warnings;

my $arg   = shift || 'boo';
my @valid = qw( goo moo foo voo doo poo );

print "$arg matches\n" if grep /$arg/, @valid;