use strict;
use warnings;

print ("Now merging \n");
my $filenum = 0;

my ( %row_val, %data );
foreach my $file ( sort glob("*.csv") ) {

    $filenum++;
    open my $fh, "<", $file or die $!;

    while ( my $line = <$fh> ) {

        chomp $line;

        my ( $row_val, @values ) = split /,/, $line;

        $row_val{$row_val} = 1;

        $data{$filenum}{$row_val} = \@values;
    }

    close $fh;
}
foreach my $row_val ( sort keys %row_val ) {

    print $row_val, ",", join( ",", map { $data{$_}{$row_val} ? @{ $data{$_}{$row_val} } : ",," } 1 .. $filenum ), "\n";
}