sub create_list {
   my %dbs = map { $_ => 1 } qw/fetch forward user smtp/;
   delete @dbs{@_};
   return keys %dbs;
}