Select Code to Download

sub f
{
my$x;my%x=map{++$x,$_}@_;print"Choose 1 of the $x options:\n",(map{"$_
+=$x{$_}\n"}1..@_),"\nChoose one:\n";chomp($_=<>);$x{$_}
}

print "Response=".p(qw[ Turkey Steak Apple ]),$/;