cat *.csv | perl -lane '/^(\S+\,\s*\S+)/; $_{ $1 }++; END{ for $v ( sort keys %_ ) { print "$v $_{$v}\n"}};' > result_csv.txt