$ perl -wMstrict -le 'my @x=qw/a b c d/; print for keys @x' 0 1 2 3