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