It seems I understood "called with the DB package" technique

package DB;

use Data::Dumper;

sub a { b() }
sub b { c() }
sub c { 
    my @a = caller(2);
    print Dumper \@a;
    print Dumper \@DB::args;
}

a("test", [1,2,3]);
[download]