my $choice = int(rand($#options + 1));
say 'Choice #', $_, ' is ', $options[$choice];
$options[$choice] = $options[-1];
pop @options;