Help for this page
my @b = uniq @a; my %seen; my @b = grep !$seen{$_}++, @a;
my @b = @{( reduce { push @{$a->[1]}, $b if !$a->[0]{$b}++ } [ {}, [] +], @a; $a )->[1]};
www.com | www.net | www.org
No recent polls found