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