Select Code to Download

use strict;
use Data::Dumper;
...

my @res2 = grep { $_ } split(",", "a,b,c,d,,f,,h");
print Dumper(\@res2);

$VAR1 = [
          'a',
...
          'f',
          'h'
        ];