Select Code to Download

my @clean = grep { defined } @data;

my @clean = grep { $_ ne '' } @data;

#!/usr/bin/perl -w
use strict;
...

print join ",", @clean;
print "\n";