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