for (my $i=0; $i<scalar(@arr); $i++)
for (my $i=0; $i<@arr; $i++)
for (my $i=0; $i<=$#arr; $i++)
for my $i (0..$#arr)