Change this:

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

to this:

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

Do you know about Data::Dumper?