Select Code to Download

use strict;
use warnings;
...
print '$hr ',      defined $hr     ? 'defined' : 'undefined';

print '$hr is ',   $hr;

$hr undefined
$hr->{a} doesn't exist
$hr defined
$hr is HASH(0x3d51c0)