Select Code to Download

@array=("one", "two", "one" "three", "four", "one", "two");
                           |
#  comma missing ----------+

$hash->{$_}++ for @array;