use strict;
use warnings;

$| = 0;

my $str="A: Gold, Black, Purple, Blue, Red     B: Black, Neon Pink, Neon Yellow, Neon Green, Neon Purple, Red, White, Neon Orange, Navy";

my @arrayA;
my @arrayB;

map {push @{(\@arrayA, \@arrayB)[--$|]}, split /,/} split /\s+/, $str;

print "Array A:@arrayA\n";
print "Array B: @arrayB";