%hist1 = map { $_ => 0 } @element;

##</code><code>##

$hist1{@element}++;

##</code><code>##

%hist1 = map { $_ => 0 } @element;