my $data = "$1,$2\n";
chomp $data;
print "$data\n";
print "$data,,,,,\n";