foreach my $ele (@SlectedColumns[1..$NrCoumns]) {
        
       do_something unless $ele == 0;
}

##</code><code>##

foreach my $ele(@SlectedColumns[1..$NrCoumns]) {
     # exit soon
     next if $ele == 0;
     next unless defined $ele;
     ....        

    }