my @list = (1..10000000);
#my @list2 = @list;

#return_args(@list);

sub return_args {
	return @_;
}

sub return_args_ref {
	return \@_;
}

sub return_copy_aryref {
	return [@{$_[0]}];
}

sub return_copy {
	shift @{$_[0]};
	return $_[0];
}

#my @list2 = return_args(@list);
#my $list2 = return_args_ref(@list);
#my $list2 = return_copy_aryref(\@list);
my $list2 = return_copy(\@list);