Perl初心者スレ（マジレス回答）

[26 デフォルトの名無しさん 2012/10/08(月) 10:06:15.64]

my @array_unique = keys %{{map {$_,1} @array}};

perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};