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