Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my %x;      say scalar keys %x; say scalar values %x;
...
0
0
0

#!/usr/bin/env perl

...
    no_assignment => sub { my %hash },
    assignment    => sub { my %hash = () },
};

                    Rate    assignment no_assignment
assignment     6672755/s            --          -60%
no_assignment 16770827/s          151%            --