#!/usr/bin/perl --
use strict; use warnings;
use Devel::Peek qw/ Dump /;
use Readonly;
Readonly::Scalar my $rs => 66;
my %hh = qw/ A B /;
while( my( $k, $v ) = each %hh ){
    Dump( $k );
    Dump( $v );
}
for( 1 ){
    Dump( $_ ); ## the readonliest
}
Dump( $rs );
__END__