Select Code to Download

>perl -MO=Concise -e"@b = grep f, @h{@a}"
...
...
...
a              <@> hslice lK ->b
...

>perl -e"@a = grep { $_='!'; 0 } @h{qw(i j)};"

>perl -e"@a = sort { $a='!'; 0 } @h{qw(i j)};"
Modification of a read-only value attempted at -e line 1.