use List::Util qw(shuffle);

sub random {
  my ($user_input, $list) = @_;
  
  $list->{'all'}  = [ map { @$_ } values %{$list} ];
  $list->{'keys'} = [ grep {$_ !~ /(?:all|keys)/} keys %{$list} ];
  
  if ($user_input && $user_input =~ /(?:help|options)/) {
    return 'Your options are: '.join(', ',sort @{$$list{'keys'}}).', or all.';
  }
  elsif ($user_input && $user_input =~ /dump/) {
    use Data::Dumper;
    return Dumper($list);
  }
  else {
    my $input = $user_input ? $user_input : 'all';
    my @random_list = shuffle(@{$$list{$input}});
    return $random_list[rand @random_list];
  }
}