foreach my $j ($i..$#arr){