Select Code to Download

my @matching=grep { 0 == index $_, $userinput } @commands;

#!/usr/bin/perl

...
}

__END__

$ ./foo.pl
Choose command [foo bar baz]
...
Ambiguos command [bar baz], retry!
bar
You chose [bar]