From the book "Perl Best Practices". This is the one of the reason why Readonly is better than 'constant'.

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