use strict;
my $x = 1;

modify_args($x),
print $x, "\n";

sub modify_args {
	$_[0] = "modified";
}
__END__
modified

##</code><code>##

my $x = 1;

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

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