sub query {
   my ($str,@argv) = @_;
   my $answer;

   while (1) {
      print "$str ", $argv[0] ? "[$argv[0]]: " : ": ";
      chomp($answer = <STDIN>);
      last unless @argv;
      last if grep $answer =~ /^\Q$_\E$/i, @argv;
   }
   return $answer;
}

##</code><code>##

last if grep $answer eq $_, @argv;

##</code><code>##

sub query2 {
   my ($str,@argv) = @_;
   my $answer;

   while (1) {
      print "$str ", $argv[0] ? "[$argv[0]]: " : ": ";
      chomp($answer = <STDIN>);
      return $answer if !@argv or grep lc($answer) eq lc($_), @argv;
      return $argv[0] unless $answer;
   }
}

##</code><code>##

$answer = $default if ($answer eq "");

# with this instead
$answer ||= $default;