use strict;
use warnings;

sub _format_caller {
  my @x=caller($_[0]);
  print "elements:",scalar(@x),"\n";
  print(join(',',@x),"\n");
}

sub f {
  my $level=$_[0];
  print "test caller $level\n";
  _format_caller($level);
}

f(1);
f(2);