Help for this page
#!/usr/bin/env perl ... chomp(my $input = <STDIN>); print "Invalid!\n" unless grep { $_ eq $input } @names;
#!/usr/bin/env perl ... chomp(my $input = <STDIN>); print "Invalid!\n" unless exists $name{$input};