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

##</code><code>##

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

##</code><code>##

@h1{@{$all[0]}}=(1) x @{$all[0]};