my @arr = (0,1,2,3,1,2);

my @uniq;

foreach (sort{$a<=>$b} @arr){
          unless($_ ~~ @uniq){push @uniq, $_}
}
print join ' ', @uniq;