If you want to be sure you have only one match, do it this way...

my @picks = grep { ... } @menu;
if ( 1 < scalar @picks ) {
    die "Too many options match your input, '$input'\n";
}
$picked = $picks[0];
[download]