Select Code to Download

  sub foo { return ('we','do','so') }

  sub foo { $_[0]='foo' }
  my $x='bar';
  foo($x);
  print $x; #prints 'foo'

  sub foo { my $x=shift; $x='foo'}