sub random {
   my ($user_input, $list) = @_;
  
   delete $list->{all}; delete $list->{keys};

   $list->{'all'}  = [ map { @$_ } values %{$list} ];
   $list->{'keys'} = [ grep {$_ !~ /(?:all|keys)/} keys %{$list} ];