if (ref $item eq 'ARRAY') {
        print "Array in Array item:\n";
        foreach (@$item) {
            print "    $_\n";
        }
    }
    elsif (ref $item eq 'HASH') {
        print "Hash in Array item:\n";
        foreach (keys %$item) {
            print "    $_ -> $item->{$_}\n";
        }
    }
    else {
        print "Array Item: $item\n";
    }