my @list = qw/1 2 3/;
%temp=();
my @stoplist = qw/1 2/;
@temp{@list} = ();
delete @temp{@stoplist};
print keys %temp;