Select Code to Download

use Data::Dumper;
$Data::Dumper::Sortkeys=1;
...
my %counts;
$counts{$_}++ for @my_array;
print Dumper(\%counts);

$VAR1 = {
          '-2' => 1,
...
          'b' => 2,
          'c' => 1
        };