Select Code to Download

my ($foo, $bar, $baz);
$foo->[1] = 92;  # $foo = [92]
print $bar->[0]; # $bar = [];
print @{ $baz }; # DIES - $baz not in lvalue context, no autoviv.