配列のソートとユニーク化

[perl]配列のソートとユニーク化
だぶりチェック。効率は悪そうだが。。。

  @ary = sort @ary;
  $x = '-';
  @uniq_ary = grep($_ ne $x && ($x = $_),@ary );