DB<108> sub nopro  { print @_ }

  DB<109> sub pro ($) { print @_ }

  DB<110> @a=3..7
 => (3 .. 7)

  DB<111> nopro(@a)
34567
  DB<112> pro(@a)
5

##</code><code>##

  DB<113> sub meth ($$) { print @_ }

  DB<114> main->meth(@a)
main34567
  DB<115> main::meth('main',@a)
main5

##</code><code>##

sub meth {
  my ($self, $x_ax, $y_ax, $arr_ref, @opt) = @_;
}