my $betrag =  abs(int(0.57 * 100)) - int(0 * 100);
my $neu_betrag = sprintf("%d",0.57 * 100) - sprintf("%d",0 * 100);
print "Betrag: >$betrag<\n";
print "Neu   : >$neu_betrag<\n";