foreach my $bigfile_bitvector (@bigfile_bitvectors) { foreach my $smallfile_bitvector (@smallfile_bitvectors) { my $diff_bitvector = $bigfile_bitvector ^ $smallfile_bitvector; write_diffs($diff_bitvector); } }