perl -e ' sub dom { $_[0]=2;} $x=1; dom($x); print $x,"\n";'

#prints
2