use autodie;
open my $in, '<', 'logfile';
my %loginfo;
while (<logfile>) {
   $loginfo{$1} = $2 if /(\w+): (\d+)/;
}
...

print "Energie: $loginfo{Energie}\n";