my %waters = (
  running  => [qw(spring streamlet rivulet run brook creek stream river)],
  standing => [qw(drop puddle pool pond lake sea ocean)],
  precipitation => [qw(rain snow sleet hail)]
);

sub random_water {
  my ($user_water) = @_;
  random($user_water, \%waters);
}