Help for this page

Select Code to Download

Select or download this

 foreach my $line (@lines1) {
        @words = split (/\,/, $line);            
        if ($words[6] > 90) {
        ...
        }

Select or download this

 while my $line(@lines1) {
        @words = split (/\,/, $line,8);            
        next if $words[6] <= 90; ...