my @comps;
$comps[10] = "foo bar";

my $foo = \$comps[0];
my $bar = \$comps[5];
my $baz = \$comps[10];

print "$foo $bar $baz\n";
__END__
UNKNOWN(0x813e940) UNKNOWN(0x813eac8) SCALAR(0x80c84b4)
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Segmentation fault (core dumped)


##</code><code>##

local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }