my %p; undef @p{ @q } if @q;