$characters{'Bob the Fighter'}->{'Feats'}= [ 'Strong Spit', 'Perl Guru'];
# or
@feats = ('Strong Spit', 'Perl Guru');
$characters{'Bob the Fighter'}->{'Feats'} = \@feats;

##</code><code>##

$characters{'Bob the Fighter'}->{'Feats'}->[1];
#is equal to 'Perl Guru'

##</code><code>##

$characters[3]->{'Attributes'}->{'Str'};

##</code><code>##

$characters->{'Bob the Fighter'}->{'Attributes'}->{'Str'};

##</code><code>##

if($char{Bob}->{Feats}->{'Good With Pointy Objects'}){
	Kill_Bad_Guy();
} else {
	Die_Hideous_Death();
}