ID:                  10_01 
Vorgangsart:            23    Korrekt
Landesdirekt:        22364    Korrekt
VNR:                       		            Leer
Schadensjahr:          123    Korrekt
__________________________________________________________________

ID:                  10_02 
Vorgangsart:            24    Korrekt
Landesdirekt:        22366 	       Falsch (29866)
VNR:                 29866 	       Falsch (123)
Schadensjahr:          123    Korrekt
__________________________________________________________________

#!/usr/bin/perl
use strict;
use warnings;

my %data = (
    ID           => [ qw( 10_04 ) ],
    Vorgangsart  => [ qw( 27 korrekt) ],
    Landesdirekt => [ qw( 22367 korrekt) ],
    VNR          => [ qw( 29868 korrekt) ],
    Schadensjahr => [ qw( 123 korrekt) ],
);


for my $k ( keys %data ) {

    my $format = "%-15s %10s %10s\n";
    if ( $k eq 'ID' ) {
        $format = "%-15s %10s\n";
    }
    printf $format, "$k:", $data{$k}->[0], $data{$k}->[1];
}

ID:                  10_04
Vorgangsart:            27    korrekt
Landesdirekt:        22367    korrekt
Schadensjahr:          123    korrekt
VNR:                 29868    korrekt

print _stringFormat('12345', 10) ;
print _stringFormat('huhu longlongbimbambuhh', 15);
print _stringFormat('bimbam'), 20) . "\n";
print _stringFormat('123', 10) ;
print _stringFormat('huhu', 15);
print _stringFormat('bimbam'), 20) . "\n";

sub _stringFormat {
    my $c = ($_[1] - length($_[0])) < 0 ? 0 : $_[1] - length($_[0]);
    $_[0] = substr($_[0], 0, $_[1]-4) . "... " if (length($_[0]) >= $_[1]);
    return $_[0] . " " x $c;
}   

   # Send email order to you...
   open (MAIL,"|$mailprogram");
   print MAIL "To: $youremail\n";
   print MAIL "From: $b_email\n";   
   print MAIL "Subject: Online Bestellung\n";
   print MAIL "\n\n";
   print MAIL "Online Bestellung.\n";
   print MAIL "\n";
   print MAIL "Bestelldatum:  $day. $months[$month] $year $hour:$min:$sec \n"; 
   print MAIL " \n";
   print MAIL "Rechnungsanschrift: \n";
   print MAIL "-------- \n";
   print MAIL "   $b_first $b_last \n";
   print MAIL "   $b_addr \n";
   print MAIL "   $b_addr2 \n";
   print MAIL "   $b_zip $b_city  \n";
   print MAIL "   $b_phone \n";
   print MAIL "   $b_fax \n";
   print MAIL "   $b_email \n";
   print MAIL " \n";
   print MAIL " \n";
   print MAIL "Menge  Produkt Name    -    Preis(Euro)\n";
   print MAIL "===================================================================== \n";
   print MAIL "$QUANTITY_1  $ID_1 - $NAME_1  Euro $PRICE_1       $ADDTLINFO_1  \n";
   if( $NAME_2 ) {print MAIL "$QUANTITY_2 $ID_2 - $NAME_2   Euro $PRICE_2       $ADDTLINFO_2  \n";}
   if( $NAME_3 ) {print MAIL "$QUANTITY_3 $ID_3 - $NAME_3   Euro $PRICE_3       $ADDTLINFO_3  \n";}
   if( $NAME_4 ) {print MAIL "$QUANTITY_4 $ID_4 - $NAME_4   Euro $PRICE_4       $ADDTLINFO_4  \n";}
   if( $NAME_5 ) {print MAIL "$QUANTITY_5 $ID_5 - $NAME_5   Euro $PRICE_5       $ADDTLINFO_5  \n";}
   if( $NAME_6 ) {print MAIL "$QUANTITY_6 $ID_6 - $NAME_6   Euro $PRICE_6       $ADDTLINFO_6  \n";}

#!/usr/bin/perl

use warnings;
use strict;

my $youremail = "you\@email.de";
my $b_email   = "me\@email.de";

my $day = 3;
my @months = qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember);
my $month = 9;
my $year = 2021;
my $hour = 14;
my $min = 10;
my $sec = 50;

my $b_first = "Max";
my $b_last  = "Mustermann";
my $b_addr  = "";
my $b_addr2 = "Mustergasse 15";
my $b_zip   = 54321;
my $b_city  = "München";
my $b_phone = "01234/5678";
my $b_fax   = "01234/56710";

my $QUANTITY_1 = 10;
my $QUANTITY_2 = 10;
my $QUANTITY_3 = 10;
my $QUANTITY_4 = 10;
my $QUANTITY_5 = 10;
my $QUANTITY_6 = 10;

my $ID_1 = 12345;
my $ID_2 = 12345;
my $ID_3 = 12345;
my $ID_4 = 12345;
my $ID_5 = 12345;
my $ID_6 = 12345;

my $NAME_1 = "Mustermann";
my $NAME_2 = "Mustermann";
my $NAME_3 = "Mustermann";
my $NAME_4 = "Mustermann";
my $NAME_5 = "Mustermann";
my $NAME_6 = "Mustermann";

my $PRICE_1 = 25;
my $PRICE_2 = 25;
my $PRICE_3 = 25;
my $PRICE_4 = 25;
my $PRICE_5 = 25;
my $PRICE_6 = 25;


my $ADDTLINFO_1 = "Angebot";
my $ADDTLINFO_2 = "Angebot";
my $ADDTLINFO_3 = "Angebot";
my $ADDTLINFO_4 = "Angebot";
my $ADDTLINFO_5 = "Angebot";
my $ADDTLINFO_6 = "Angebot";

print "To: $youremail\n";
print "From: $b_email\n";   
print "Subject: Online Bestellung\n";
print "\n\n";
print "Online Bestellung.\n";
print "\n";
print "Bestelldatum:  $day. $months[$month] $year $hour:$min:$sec \n"; 
print " \n";
print "Rechnungsanschrift: \n";
print "-------- \n";
print "   $b_first $b_last \n";
print "   $b_addr \n";
print "   $b_addr2 \n";
print "   $b_zip $b_city  \n";
print "   $b_phone \n";
print "   $b_fax \n";
print "   $b_email \n";
print " \n";
print " \n";
print "Menge  Produkt Name    -    Preis(Euro)\n";
print "===================================================================== \n";
print "$QUANTITY_1  $ID_1 - $NAME_1  Euro $PRICE_1       $ADDTLINFO_1  \n";
if( $NAME_2 ) {
    print "$QUANTITY_2 $ID_2 - $NAME_2   Euro $PRICE_2       $ADDTLINFO_2  \n";
}
if( $NAME_3 ) {
    print "$QUANTITY_3 $ID_3 - $NAME_3   Euro $PRICE_3       $ADDTLINFO_3  \n";
}
if( $NAME_4 ) {
    print "$QUANTITY_4 $ID_4 - $NAME_4   Euro $PRICE_4       $ADDTLINFO_4  \n";
}
if( $NAME_5 ) {
    print "$QUANTITY_5 $ID_5 - $NAME_5   Euro $PRICE_5       $ADDTLINFO_5  \n";
}
if( $NAME_6 ) {
    print "$QUANTITY_6 $ID_6 - $NAME_6   Euro $PRICE_6       $ADDTLINFO_6  \n";
}

print MAIL "...";