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