$db->{my_complex} = [
        'hello', { perl => 'rules' }, 
        42, 99 ];
print $db->{my_complex}->[1]->{perl}, "\n"; # easy

# however
.. print all records that 'rule' # difficult