Select Code to Download

#!/usr/bin/perl

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

Chromium:~ lexicon$ perl -l little2.pl 
Unquoted string "unique" may clash with future reserved word at little
+2.pl line 7.
1,2,1
1,2

Chromium:~ lexicon$ perl -l -MO=Deparse little2.pl 
Unquoted string "unique" may clash with future reserved word at little
+2.pl line 7.
...
    return grep((!$new{$_}++), @_);
}
little2.pl syntax OK