Help for this page

Select Code to Download

Select or download this

use strict;
my $r = [qw/foo bar/];
print $r->[0];    # 'foo'
print @$r->[0];   # 'foo', due to bug.
print @{$r->[0]}; # Can't use string ("foo") as an ARRAY ref...