my @brain;
push (@brain, 'black devils');
my %pain = ($brain[0] => (qw/fun laughter/));

##</code><code>##

Black devils dwell inside my brain
Their fun and laughter is my pain