perl -le '%h = (a =>1, b => 2); print %h+0' 2