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