while ( $line = <IN> ) {
      push @array, ( split /\s+/, $line )[9, 0];
  }