Select Code to Download

use strict;
use warnings;
...
my @valid = qw( goo moo foo voo doo poo );

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

# wrong way ahead!
print "$arg matches\n" if grep $arg, @valid;