Select Code to Download

...
while ($line = <ALL>) {
    my @columns = split /,/, $line;
    warn "column $colN not found" unless defined($columns[$colN]);
    ...