my %asdu;
open(my $FH_ASDU, "<$asdu_datei") or die "open file: $!";
while(my $line = <$FH_ASDU>)
{
        chomp $line;
        if ($line =~ m/(\d*.\d\d)\s(.*)/)
        {
                my $mandant_lokal = $2;
                my $summe_lokal = $1;
                $mandant_lokal =~ s/\s*$//;
                print "$mandant_lokal: $summe_lokal\n";
                %asdu = ("$mandant_lokal" => "$summe_lokal");
        }
}
my @schluessel = keys(%asdu);
foreach (@schluessel)
{
        print "$_\n";
}