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