# 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});
####
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.
##
##
# 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++,$/);