ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Supplier ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Supplier ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Supplier ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription at RowCode
ValuesInColumn1    DataColumnB    ABC    RowDescription at RowCode

##</code><code>##

foreach my $line (@a) { 
        my ($colA, $colB, $colC,$colD) = split( /\s+/, $line);
        
        #print "$colD \n";     
}