use strict;
use warnings;

use Data::Dumper; 

use constant HASHREFCONST => do {
   my $hashref  =
     {
      'ONE'   => 1,
      'TWO'   => 2,
      'THREE' => 3,
      'FOUR'  => 4,
     };
   [$hashref->{ONE} .. $hashref->{FOUR}]
};


print Dumper(HASHREFCONST);