my %seen;
@seen{@larger_list} = ();
delete @seen{@smaller_list};

my @culprits = keys %culprit;