I like

> $number_hash{$_} = 1 for @list;