my @array = qw(A R N D);
# is equivalent to
my @array = ();
$array[0] = 'A';
$array[1] = 'R';
$array[2] = 'N';
$array[3] = 'D';