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

##</code><code>##

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

##</code><code>##

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