our (@overall,@electronics,@safety);

sub breakouts {
        my (@LoL)=@_;
        my $i=0;
        foreach(@LoL){
                push @overall,@{$LoL[$i]}[1].":".@{$LoL[$i]}[0];
                push @electronics,@{$LoL[$i]}[2].":".@{$LoL[$i]}[0];
                push @safety,@{$LoL[$i]}[3].":".@{$LoL[$i]}[0];
                $i++;
        }
}

breakouts(@products);