Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        print "$company ", join(",", @ones), "\n";
    }
}

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