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