Select Code to Download

# print 
for (my $i =1; $i <= $#arr; $i++) {
...
   print join(',', @{$arr[$i]})."\n";
#                   ^        ^ missing   
}

Output     Required
a,2        a,2
...
c,4        c,4
s          ,s
w          ,w