$gesamt_artikel01=$anzahl01 * $preis01;
$gesamt_artikel02=$anzahl02 * $preis02;
$gesamt_artikel03=$anzahl03 * $preis03;
$gesamt_alle=
$gesamt_artikel01+
$gesamt_artikel02+
$gesamt_artikel03;
$gesamt_alle = sprintf('%.02f',$gesamt_alle);
$gesamt_alle =~ tr/,/./;
$gesamt_alle = reverse $gesamt_alle;
$gesamt_alle =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$gesamt_alle = reverse $gesamt_alle;

$gesamt_artikel01 =~ tr/,/./;
$gesamt_artikel01 = reverse $gesamt_artikel01;
$gesamt_artikel01 =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$gesamt_artikel01 = reverse $gesamt_artikel01;

$gesamt_artikel02 =~ tr/,/./;
$gesamt_artikel02 = reverse $gesamt_artikel02;
$gesamt_artikel02 =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$gesamt_artikel02 = reverse $gesamt_artikel02;

$gesamt_artikel03 =~ tr/,/./;
$gesamt_artikel03 = reverse $gesamt_artikel03;
$gesamt_artikel03 =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$gesamt_artikel03 = reverse $gesamt_artikel03;