DB<99> my $a =[]; sub bar () { $a }

  DB<100> sub tst { print bar,bar}

  DB<101> tst
ARRAY(0x3365bc0)ARRAY(0x3365bc0)