sub pick_one {
  return $_[rand @_];
}