$ perl -le '
use warnings;
$rocks = [1..23];
@rocks = qw/hail slate poop drop/;
print $rocks;
print $rocks->[0];
print \@rocks;
print $rocks[0];
'
ARRAY(0x7fe363803ae8)
1
ARRAY(0x7fe36382b108)
hail