perl -e ' $h{W}=2; $h{W}++; print "$h{W}\n";'

Result: 3