Fair point. Just switch things around a little...

my %hash;
@hash{1..@list}=1;

delete $hash{$_} for (@list);
[download]

Funny, this was how I did it originally, but I thought the other way round looked prettier :)

cLive ;-)