for ( my $i = 0; $i < scalar @points; $i++ )