my $x = 1;

modify_args($x), # doesn't work
print $x, $/;

sub modify_args {
	my ($copy) = @_;
	$copy = "modified";
}
__END__
1