sub choose {
  #assumes 1st param is \%knockknocks
  my $jokeref = shift;
  my @setups = keys %$jokeref;
  return $setups[rand @setups];
}