#! /usr/local/bin/perl
use strict;
use warnings;

use constant AAA=>1;
use constant BBB=>0;

my @this_array;

$this_array(AAA) = 'Scrumtidlyumptions';
$this_array(BBB) = 'Cupcakes taste';

print(join(' ',@this_array), "\n");