# This works as well...

my %number_hash = map {$_, 1} @list;