if(length($line) != 9){
  warn "Bad data read (at line $.): '$line' length is not correct.\n";
  next; # skip processing this line
}
if ($line !~ /^\d+$/){
  warn "Bad data read (at line $.): '$line' not numerical.\n";
  next; # skip processing this line
}