Select Code to Download

use constant ARRAY => [ 1,2,3,4 ];
print ARRAY->[1];
ARRAY->[1] = " be changed";
print ARRAY->[1];

use strict;
use warnings;
...
print {*STDERR} "Dumping MODES: " . Dumper ((MODES));

1;

Dumping MODES: $VAR1 = sub { "DUMMY" };
$VAR2 = sub { "DUMMY" };

use constant MODES => ( \ADD_DATA, \REMOVE_DATA );

Dumping MODES: $VAR1 = \'add';
$VAR2 = \1;
$VAR3 = \'remove';
$VAR4 = \2;