use Math::BigFloat;
my $wert = Math::BigFloat->new(0.045);
my $gerundet = $wert->fround(2);
print "Gerundet: >$gerundet<\n";