Select Code to Download

use strict;
use warnings;
...

warn "array ref $a->[1] ";
warn "aoh   ref $a->[0]{a} ";

version 5.014002 at /home/lanx/pm/warn_undef.pl line 4.
Use of uninitialized value $hash{"a"} in concatenation (.) or string a
+t /home/lanx/pm/warn_undef.pl line 13.
...
aoh   ref   at /home/lanx/pm/warn_undef.pl line 23.