Select Code to Download

print join(',', @$row), "\n";

foreach my $element (@$row)
{
...
  print "$element,"; ### print it with a comma
}
print "\n";