use List::Util qw( reduce ); my $result = reduce { $a & $b } @int_lists_great_and_small; [download]
In reply to Re: Ultra compact set searching by kyle in thread Ultra compact set searching by jimt