>>200
それじゃあソートできてないだろ

my @result = sort grep !$temp{$_}++, @list;