keys%{map{$_=>1}@list}

##</code><code>##

    keys%{map $_,0, @list}

##</code><code>##

    keys%{map$_=>0,@list}

##</code><code>##

    keys%{map$_ x2,@list}

##</code><code>##

    keys%{map ($_)x2,@list}

##</code><code>##

    keys%{map+($_)x2,@list}

##</code><code>##

    do{my%h;grep!$h{$_}++,@list}

##</code><code>##

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

##</code><code>##

    keys%{@list[...]}

##</code><code>##

    keys%{@x[0..$#x,1..$#x]}

##</code><code>##

    keys%{@x,reverse@x}