>perl -wMstrict -le
"use Data::Dumper;
 ;;
 our @a = (1, 2, 3, 4);
 our @b = (9, 8, 7, 6);
 f(*a, *b);
 ;;
 sub f {
   local (*c, *d) = @_;
   print Dumper \*c;
   print Dumper \*d;
   print @::c;
   print @::d;
   }
"
$VAR1 = \*::a;

$VAR1 = \*::b;

1234
9876