$ perl -E'sub { $_[0] = "abc" }->($x); say $x'
abc