my @list = (1, 2, 3, 4, 3, 2, 1);
print STDERR "Last index: $#list\n";