#!/usr/bin/env perl

use strict;
use warnings;
use Const::Fast;
use Data::Dump;
use feature qw(say);

const our $A => 12;
const our $B => 13;

print $];
print qx(corelist Const::Fast);

my %hash = (
    $A => 'twelve',
    $B => 'thirteen',
);

dd \%hash;

say $hash{$A};
say $hash{$B};

for ( sort ( keys(%hash) ) ) {
    say qq($_  =>  $hash{$_});
}

__END__

karls-mac-mini:playground karl$ ./constant.pl
5.024001
Data for 2017-01-14
Const::Fast was not in CORE (or so I think)
{ 12 => "twelve", 13 => "thirteen" }
twelve
thirteen
12  =>  twelve
13  =>  thirteen