Select Code to Download

perl -lnE "BEGIN{$aoa[0]=[@ARGV]}$aoa[$.][$x]=$_; if(eof){close ARGV;$
+x++}END{map{say join ',',@$_}@aoa}" file1.txt file2.txt file3.txt

...
,24,32
,,36