open my $in, "< logfile" or die "geht nicht\n";
while (<$in>){
 if ((/Energie: (\d+)/)  && ($brauchene) ){$energie = $1}
 if ((/Gradient: (\d+)/) && ($brauchgrad)){$gradient = $1}
}