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