my $zahl = sprintf "%.2f", 123;
my $zahl2 = sprintf "%.2f", 1.2;