sub random {
  my ($user_input, $list) = @_;
  
  if ($user_input =~ /(?:help|options)/) { 
     my $keys =  join ", ",keys %$list;
     return "Your options are: $keys, or all.";
  }
  elsif ($user_input eq 'dump') {
    use Data::Dumper;
    return Dumper($list);
  }
  else {
    my @values=();
    if ($user_input eq 'all'){
      @values = map { @$_ } values %$list;
    } else {
      @values = values @$list{$user_input};
    }
    return (shuffle @values)[0];
  }    
}