use strict;
use warnings;
my $x="";
bar($x);
print "$x\n"; #prints 10
sub bar { $_[0]=10; } # does $x=10, essentially