use strict;
use warnings;
use Data::Dumper; 

my $hashref = () = { 
        'ONE'   => 1,
        'TWO'   => 2,
        'THREE' => 3,
        'FOUR'  => 4,
};

use constant HASHREFCONST => [$hashref->{ONE} .. $hashref->{FOUR}]; 

print Dumper(HASHREFCONST);

##</code><code>##

Use of uninitialized value in range (or flop)
Use of uninitialized value in range (or flop)

##</code><code>##

my @test = ($hashref->{ONE} .. $hashref->{TWO});
use constant GOODCONSTANT  => \@test;