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);