use strict;
use warnings;
use English;

# let's talk like pirates....
my @arr;


my $fc = 0;
for my $file (@ARGV) {
   open my $fh, "<$file" or die "We're screwed with $file";
   while (<$fh>) {
      chomp; # maybe s/\s+$// ?
      $arr[$INPUT_LINE_NUMBER][$fc] = $_;
   }
   close $fh;
   $fc++; # inc filecount
}

# print 
for (my $i =1; $i <= $#arr; $i++) {
   # fill in the blanks
   print join(',', map { $arr[$i][$_] // '' } 0..$fc-1)."\n"; 

}