Select Code to Download

#!/usr/bin/perl
use JSON::Path;
...
print "num (w/o array):" . scalar( $json_path->values( $json ) ) . "\n
+";
print "num (w array):" . scalar( @arr ) . "\n";
print "ref: " . ref( $perl ) . "\n";

ref: HASH
num (w/o array):HASH(0x1baf0f0)
num (w array):2
ref: ARRAY