if( $i == 0 ) {
    for my $w ( @Nc ) {
    }
}
else {
    for my $w ( @Nc ) {
    }
}
[download]

Or since the loops themselves are the same, differing only in their content:

for my $w ( @Nc ) {
    if( $i == 0 ) {
        # First pass actions
    }
    else {
        # Subsequent pass actions.
    }
}
[download]

By the way, the code you posted doesn't compile.