Help for this page
@list = grep { $item ne $_ } @list;
my ($index) = grep { $item eq $list[$_] } 0..$#list; splice(@list, $index, 1) if defined $index;
www.com | www.net | www.org
No recent polls found