for $leaf_obj ( keys %{ $ThreeD{$media{$media_ver}} } ) {

##</code><code>##

   for $leaf_obj ( keys %{ $ThreeD{$media}{$media_ver} } ) {
##.......................................^.<<<<<<<<<<.^