To remove duplicates:

  #! /usr/bin/perl -w
  use strict;

  my @arr = (1, 2, 2, 3);
  @arr = keys %{{map {$_ => undef} @arr}};
  print "$_\n" for @arr;
[download]