Select Code to Download

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

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