Select Code to Download

perl -le '$foo{"bar"} = ["a","b"]; print ref $foo{"bar"}'

    if (ref $item eq 'ARRAY') {
        print "Array in Array item:\n";
...
    else {
        print "Array Item: $item\n";
    }