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]);