use warnings;
$rocks = [1..23];
@rocks = qw/hail slate poop drop/;
print $rocks;

##</code><code>##

ARRAY(0x1434d80)