my $eu = new Number::Format( -thousands_sep => '.', -decimal_point => ',', -int_curr_symbol => "\x{20ac}", ); my @count = $self->param( 'count' ); my @rows; for my $i ( sort { $a <=> $b } @count ) { my $euro_stueck = $eu->unformat_number( $self->param( "euro_stueck_$i" ) ); my $menge = $eu->unformat_number( $self->param( "menge_$i" ) ); my $euro_gesamt = $euro_stueck * $menge; $menge = $eu->format_number( $menge ); $euro_stueck = $eu->format_price( $euro_stueck, 2 ); $euro_gesamt = $eu->format_price( $euro_gesamt, 2 ); push @rows, { menge => $menge, bezeichnung => $self->param( "bezeichnung_$i" ), euro_stueck => $euro_stueck, euro_gesamt => $euro_gesamt, }; }