while ( <TEXTFILE> ) {
    $csv->parse($_);
    push @H_USES, [ ($csv->fields)[0, 2..10] ]; # or whatever the number of fields in the file
}