#!/usr/bin/env perl
use 5.011; # implies strict + feature 'say'
use warnings;
use Data::Dumper;

for (1 .. 2) {
	say "in loop:";
	say Dumper $_;
	test(3, 4);
}

sub test {
	say "in sub:";
	#          $VAR1  $VAR2
	say Dumper $_,    \@_;
}

__DATA__

in loop:
$VAR1 = 1;

in sub:
$VAR1 = 1;
$VAR2 = [
          3,
          4
        ];

in loop:
$VAR1 = 2;

in sub:
$VAR1 = 2;
$VAR2 = [
          3,
          4
        ];
 ];