Select Code to Download

$ perl -le'sub mychop(\$) { chop ${shift()} } print mychop $_ foreach 
+(qw/foo/);'
o
$ perl -le'sub mychop(\$) { chop ${$_[0]} } print mychop $_ foreach (q
+w/foo/);'
...
This is perl, v5.8.5 built for i386-linux-thread-multi - Red Hat Enter
+prise Linux AS release 4
This is perl, v5.8.5 built for x86_64-linux-thread-multi - Red Hat Ent
+erprise Linux AS release 4
This is perl, v5.8.8 built for hppa-linux-gnu-thread-multi - Debian/Li
+nux 3.1

> perl -le'sub mychop(\$) { chop ${shift()} } print mychop $_ foreach 
+(qw/foo/);'
Modification of a read-only value attempted at -e line 1.
> perl -le'sub mychop(\$) { chop ${$_[0]} } print mychop $_ foreach (q
+w/foo/);'
...
This is perl, v5.8.0 built for i386-netbsd - NetBSD 3.0
This is perl, v5.8.6 built for alpha-freebsd - FreeBSD 6.0-RELEASE
This is perl, v5.8.6 built for i386-freebsd-64int - FreeBSD 5.4-RELEAS
+E