my $Name = ...;
my $Ort = ...;
my $Note = ...; 
my @Schueler = ("$Name","$Ort","$Note");

open (DATEI,">/daten.txt") || die "ERROR";

#ABFRAGE

print DATEI "$Schueler[0]" . "\t" ..... 

#oder

print DATEI "@Schueler";

close(DATEI);