Select Code to Download

my $var1;
my $var2 = 'val2';

#!/usr/bin/env perl -l

...

print join ' ', 'R1:', sort(keys %$hashref), @array;
print join ' ', 'R2:', @{+HR_ARRAY}, @{+AREF};

B1:
B2:
...
I2: i j k
R1: a b c d e
R2: c d e

$ perl -E 'use constant AREF => [1..4]; say "@{+AREF}";'
1 2 3 4
...
$ perl -E 'use constant AREF => [1..4]; say "@{+AREF}"; AREF->[2] = 99
+; say "@{+AREF}"'
1 2 3 4
1 2 99 4

use constant { ONE => 1, ..., FOUR => 4 };
use constant NUM_AREF => [ ONE .. FOUR ];