Same bug, I guess ... and it's still not present in my perl v5.8.7 built for i486-linux:

sidhekin@blackbox:~$ perl
foreach my $thing (qw/foo bar baz/) {
   print "$thing -> ";
   my $c = chop ${\$thing};
   print " $thing,$c\n";
}
__END__
Modification of a read-only value attempted at - line 3.
foo ->
[download]