# Simply 'join' all data; last record contains neither comma nor newline.
my $data = join(",\n", @data);