use strict;
my $x = 1;

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

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