my @EXPORTS=qw(DBG_ONE, DBG_TWO, DBG_FOUR);

Readonly  my DBG_ONE => 1;
Readonly  my DBG_TWO => 2;
Readonly  my DBG_FOUR => 4;

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