Select Code to Download

>perl -wMstrict -le
"use diagnostics;
...
        %hash = [ qw/ an anon array / ];        # WRONG
        %hash = ( one => 1, two => 2, );        # right
        %hash = qw( one 1 two 2 );              # also fine