DB<1> print $a // "undef"
undef
  DB<2> my $a;print $a // "undef"
undef
  DB<3> our $a;print $a // "undef"
undef
  DB<4> $a=1;print $a // "undef"
1