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

##</code><code>##

sub checkIndices {
    my $count;
    for ($count=0; $count<=$#_; $count++){
        if($_[$count] < 0){
            return (1==0);
        }
    }
    return (1==1);
}

##</code><code>##

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