Select Code to Download

$ perl -le'@x = $scalar;    print 0+@x; print $x[0] // "[undef]"'
1
...
$ perl -le'@x = $hash{foo}; print 0+@x; print $x[0] // "[undef]"'
1
[undef]