grep { $h1{$_}=1; undef; } @{$all[0]};