Help for this page
$hash1{$_}++ for @elements;
DB<1> @elements = qw/ 1 3 5 4 6/; ... 4 => 1 5 => 1 6 => 1