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

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