Select Code to Download

$hash{'companies'}{'microsoft'}{'people'}{'steve ballmer'} = 'bills bu
+lldog';
$hash{'companies'}{'cross over'}{'supports'} = ['iTunes', 'photo shop'
+];

add_to_hash(\%hash,'scalar','companies-microsoft-people-steve ballmer'
+,'bills bulldog');
add_to_hash(\%hash,'list','companies-cross over-supports','iTunes','ph
+oto shop');