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 ]),$/;