Help for this page
for my $x (@x) { push @z, (grep {$_ == $x} @y) ? '+' : '-'; }
my %k = map {($_, 1)} @y; for my $x (@x) { push @z2, (exists $k{$x}) ? '+' : '-'; }
www.com | www.net | www.org
No recent polls found