Select Code to Download

%H = ( 'x' => 'y', 'y' => $undef_var, 'z' = 'a' );

#!/usr/bin/perl

...
use Data::Dumper;
#warn Data::Dumper->Dump([\%p],['p']);
warn $p{z};