use List::Util qw( reduce );

my $result = reduce { $a & $b } @int_lists_great_and_small;