Select Code to Download

my $headerLine= -1;
my $prtIndex  = -1;
my $shpIndex  = -1;
my $clrIndex  = -1;
my $sizIndex  = -1;

sub checkIndices {
    my $count;
...
    }
    return (1==1);
}

sub checkIndices {
    for my $item (@_){
...
    }
    return (1==1);
}