...
print float2money(0.01);
_ _END_ _
Use of uninitialized value in concatenation (.) or string at float2money.pl line 15.
Use of uninitialized value in concatenation (.) or string at float2money.pl line 15.

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;
}

$gerundet = int(sprintf("%.0f", $zahl));

sub float2money{
    my $zahl =$_[0];
    $zahl = int(sprintf("%.0f", $zahl*100));
    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;
}

print float2money(-0.02);

0,02

    my $erstestelle = $1;
    $erstestelle = 0 unless $1;
    my $zweitestelle = $2;
    $zweitestelle = 0 unless $2;

    my $erstestelle = $1 || 0;
    my $zweitestelle = $2 || 0;