$ perl -le '%h = (a =>1, b => 2); print scalar keys %h' 2