sub{my%h;grep!$h{$_}++,@_}->(@list)