Select Code to Download

if (ref($item) =~ /HASH/) {}

print "Array in Array: ", @{$item}, "\n";
...
print "Hash in Array: ", %{$item}, "\n";

#!/usr/bin/perl -w

...
            }
        }
    }

Volume: alpha
Array Item: 0 
...
Hash in Array:  four third_hash 
Array Item: 2 
Array Item: 1