my @foo = qw/1 2 3 4 5 6/;
print "Index 1 is $foo[1]\n";