#!/usr/bin/perl

use strict;
use warnings;

my @list = (1, 2, 1);
print join ',', sort (unique (@list));
print join ',', sort (unique(@list));

sub unique { 
  my %new = ();
  return grep (!$new{$_}++, @_);
}