Win8 Strawberry 5.8.9.5 (32)  Thu 06/10/2021  9:48:30
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings

use Data::Dump qw(dd);

use constant APPLE => 1;

my %heesh = (APPLE => => 'red');
dd \%heesh;

my %hash = (APPLE , => 'red');
dd \%hash;

^Z
{ APPLE => "red" }
{ 1 => "red" }