use Readonly;
Readonly my $FOO => 1;
Readonly my $BAR => 1;
my $thing = $FOO;
$Things[$thing] = 'whatever';
print $Things[$thing];
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.