Select Code to Download

  use constant BIRD=>'footchicken';

  { BIRD => 'Valery' }

  { BIRD() => 'Valery' }
  { BIRD, 'Valery' }

  { +BIRD => 'Valery' }

use strict;
use warnings;
use Data::Dumper;
use constant { BIRD => 'footchicken' };
print Dumper(+{ +BIRD => 'Valery' });

$VAR1 = {
          'BIRD' => 'Valery'
        };