use strict;
use Data::Dumper;

our @X;
my ($underscore, $scissors);

@_ = (1..3);
@X = (1..3);

sub foo {
	local @X = (4..6);
	$underscore = \@_;
	$scissors   = \@X;
}

foo(4..6);
print Dumper($underscore, $scissors);