for (my $x = 0; $x < $#arr; $x++) {} # ^^^^^^^