Help for this page
my @x = qw( 0 0 0 0 1 1 0 0 0 0 1 0 ); my @y = qw( 1 0 0 0 1 0 1 0 1 0 1 0 ); ... my $compare = $x & $y; my $joint = $compare =~ tr/1/1/; print "$joint\n";
www.com | www.net | www.org
No recent polls found