Select Code to Download

use List::Util qw(shuffle);

...
    return $random_list[rand @random_list];
  }
}

my %waters = (
  running  => [qw(spring streamlet rivulet run brook creek stream rive
+r)],
...
  my ($user_water) = @_;
  random($user_water, \%waters);
}

print random_water('dump');

...
                     'river'
                   ]
        };

print random_water('dump');
print random_water('dump');
...
                     'river'
                   ]
        };