Help for this page
my @arr = (0,1,2,3,1,2); ... unless($_ ~~ @uniq){push @uniq, $_} } print join ' ', @uniq;
use List::Util qw(any); my @arr = (0,1,2,3,1,2); ... } print join ' ', @uniq;