sub float2money{
    my $zahl =$_[0];
    $zahl = int($zahl*100+0.5);
    return "0,00" if $zahl == 0;
    $zahl =~ m/(\d?)(\d)$/;
    $zahl = int($zahl/100);
    my $erstestelle = $1;
    $erstestelle = 0 unless $1;
    my $zweitestelle = $2;
    $zweitestelle = 0 unless $2;
    return $zahl.",".$erstestelle.$zweitestelle;
}