#use strict;
use Readonly;

my @EXPORTS=qw(DBG_ONE DBG_TWO  DBG_FOUR);

Readonly::Scalar my $DBG_ONE  => 1;
Readonly::Scalar my $DBG_TWO  => 2;
Readonly::Scalar my $DBG_FOUR => 4;

foreach my $flag (@EXPORTS) {
  printf "flag = %s, value = 0x%04x\n", $flag, eval( "\$" . $flag );
}

##</code><code>##

 Readonly::Hash    my %DBG_Val => (DBG_ONE => 1, DBG_TWO => 2, DBG_FOUR =>4);