while (<$inFile>) {
    my ($this, $that, $theOther, $index) = split;
    
}