Why use grep at all if you don't need a return value?

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