Select Code to Download

$ perl -e 'my %x = qw{@ 1 | 2}; for (1..30) { print keys %x }; print "
+\n"'

|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@
@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|@|

{
    my @keys = keys %$hash_ref;
    sub hrkeys () { @keys }
}