Select Code to Download

sub sortuniq {
  my $aref = shift @_;
  @$aref = sort(uniq(@$aref, @_));
  }

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More tests => 2;
...
1..2
ok 1 - Duplicate added, sorted
ok 2 - Non-duplicate added, sorted