#/usr/bin/perl -wmy @array = ('a', 'b', 'c', 'a');my %count;@array = grep {!$count{$_}++} @array;print @array; # 出力は abc となる。1;