Select Code to Download

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

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

my $bit=0;
sub bit(){
...
foreach $flag (@myflags) {
    dbg_flag($flag);
}