Select Code to Download

sub subtract {
   my ($whole_ref, $banned_ref) = @_;
...
}

my @surviving = subtract([qw(fetch forward user smtp)], [qw(user smtp)
+]);