foreach my $index (1 .. $#numbers)