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

use constant FOO => "something";

my %h = ( FOO => 23, FOO , 24 );

print Dumper(\%h);
__END__
$VAR1 = {
          'FOO' => 23,
          'something' => 24
        };