sub tu_was {
      ...
      my $logger = Log::Log4perl::get_logger();
      $logger->trace($ein_wert, "\n");
}