my @a;
while ( do { { package DB; @a = caller($i++) } } ) {
  my @args = @DB::args;  # odd results for some data arguments
}