Help for this page
foreach my $ele (@SlectedColumns[1..$NrCoumns]) { do_something unless $ele == 0; }
foreach my $ele(@SlectedColumns[1..$NrCoumns]) { # exit soon ... .... }