If you really want shorter code then:

use warnings;
use strict;

/^([^,]+)/ && open F, ">>$1" and print F while <>;

__END__
[download]

:-) The way it works is that it opens a file in append mode for every line that matches the regular expression using the first field as the file name and prints the current line to the end of that file.