Select Code to Download

#!/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};