use Modern::Perl;
use Data::Dumper;

my $a = 'a,b,c,d,,,,,,,';

my @col = $a =~ /([^,]+)/gi;

say Dumper \@col;