use Set::Scalar qw( );

sub create_list {
   my $dbs  = Set::Scalar->new( qw/fetch forward user smtp/ );
   my $skip = Set::Scalar->new( @_ );
   return ($dbs - $skip)->members();
}