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

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

my @col = ( split ',', $a, )[ 0 .. 3 ];

say Dumper \@col;