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