Skip to content

Instantly share code, notes, and snippets.

@memowe

memowe/gist:3910729

Created October 18, 2012 09:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save memowe/3910729 to your computer and use it in GitHub Desktop.
Save memowe/3910729 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
$ perl -E 'sub a { my ($b, @c) = @_; $c[0]++ } my @d = (42); a(17, @d); say @d'
42
$ perl -E 'sub a { my ($b, $c) = @_; $c->[0]++ } my @d = (42); a(17, \@d); say @d'
43
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment