open (SEQUENZ, "pdaa_human.fasta")or die "Die Datei kann nicht geöffnet werden!";

my $Sequenz = ();

while ($line = <SEQUENZ>)
{
   chomp($line);
   if ($line =~ /^(>\w*)\|(\w+HUMAN)/)
   {
       if (defined $Sequence[1]) {
       system ( blastall -p blastp -d uniprot_swissprot -i pdbaa_human.fasta -o seqme.blastp);
    } 
    #neue Sequenz merken
    $Sequence[0] = $2;
   }
 else {
    $Sequence[1] .= $line; #sequenz weiter einlesen
    }
}

if (defined $Sequence[1]) {
    &printSeq(@Sequence);
}
close SEQUENZ;