Select Code to Download

use strict;
use warnings;
...
print 2, xdefined($h,"a",2);
print 1, xdefined($h,"a");
print 0, xdefined($h);

5
4
...
2:1
1:1
0:1