Bitte Bitte nochmal Hilfe Danke Michael

[Michael]

Hallo
Ich möchte das Michael, Frank, Lutz und Ines untereinander in die Datei Michael.dat geschrieben werden.

sub approveNew {
  for( split(/,/, $FRM{id}) ) {
    my $md = dbselect("$DDIR/dbs/review.db", $_);
    next if( !$md );
    shift @{ $md };

fjoin  ("$DDIR/members/$_.dat",  @{ $md }                                          );
    fjoin  ("$DDIR/members/$_.cnt",  0, 0, 0, 0, '-', $$md[12], $$md[8], 0, $$md[10], 0);
    fcreate("$DDIR/members/$_.sts"                                                     );
    fjoin  ("vote/data/$_.dat",                                                        );
    fjoin  ("vote/data/$_.ip"                                                          );

open(FILE, "vote/data/michael.dat");
    print "Michael\n\n";
    print "Frank\n\n";
    print "Lutz\n\n";
    print "Ines\n\n";
    close(FILE);