# 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});