use strict;

my %a;

$a{"abc"} ++;
print $a{"abc"};