use strict;
use warnings;
use List::Compare;

my @dbs = qw(fetch forward user smtp);
my @skip_dbs = qw(user smtp);

my $lc = List::Compare->new(\@dbs, \@skip_dbs);

my @list = $lc->get_unique;

print @list;
[download]

Cheers,

Brent