Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E '
    > my %x = (a => 1);
    ...
    0
    a1
    a 1