Help for this page
my %lookup; @lookup{@in} = (); ... @db = grep {not exists $lookup{$_}} @db; } }
my (%db_lookup, %in_lookup); @db_lookup{@db} = (); ... } elsif ($condition2) { push @db, grep { not exists $db_lookup{$_} } @in; }