Use Readonly instead of constant

readonly.pl

#!/usr/bin/env perl
#
use warnings;
use strict;
use Data::Dumper;

use Readonly;

Readonly my $MY_CONSTANT => 13;

my %foo = ($MY_CONSTANT => 'dingle');

print Dumper \%foo;