if ($sequence1 =~ /^>(.+)/) {
				$handle_ref = $1;
				$handle_ref =~ s/\s+//g;
			}
$datei1 = $handle_ref.".txt";
open (SEQFILE1, "> $upload_directory/$datei1");
chomp ($sequence1);
print SEQFILE1 $sequence1;
close (SEQFILE1);