for ( my $i = 0 ; $i <= @parts ; $i++ ) {