use strict; use warnings; use PDL; my $A = floor(random(3,8) * 6); my $B = floor(random(2,2) * 6); my $C = $A->in($B->slice(',0'))->sumover * $A->in($B->slice(',1'))->sumover ; my $rows = which($C > 0); print $rows;