C:\Old_Data\perlp>perl t6.pl
Company_A a,b,c
Company_A b,g,c
Company_B a,g,x