# lvalue subroutines are EXPERIMENTAL
(a); $foo="a";sub a:lvalue{$a[1]};@a=(19,85);
print \$foo->[1] == \$foo->(1), $/;

# Pseudo-hashes are DEPRECATED
(b); $foo=[{1,1},"kacsa"];$\=$/; print (\$foo->[1]); print (\$foo->{1});
print (\$foo->[1] == \$foo->{1});

##</code><code>##

dump;;
# But that may change in future versions. I don't know any solution 
# not using the function dump; kill 5,0 is too long.

##</code><code>##

# Why does changing $foo fail silently?  I don't quite understand.
# It works in perl5.{00503,6.1,8.0,8.1}
*foo=*[;print(($foo^=0)++ eq $foo++,$/);