sub ausgabe()
{
              print $ausgabedatei "ID:                  @stat[0]\n";
              print $ausgabedatei "Vorgangsart:         @stat[1]                @ausgabe[0]\n";
              print $ausgabedatei "Landesdirekt:                @stat[2]                @ausgabe[1]\n";
              print $ausgabedatei "VNR:                 @stat[3]                @ausgabe[2]\n";
              print $ausgabedatei "Schadensjahr:                @stat[4]                @ausgabe[3]\n";
              print $ausgabedatei "SNR:                 @stat[5]                @ausgabe[4]\n";
              print $ausgabedatei "__________________________________________________________________\n\n";
}

sub ausgabe()
{
              printf $ausgabedatei "ID:";
               printf $ausgabedatei '%30s',"@stat[0]\n";

              printf $ausgabedatei "Vorgangsart:";
               printf $ausgabedatei '%30s',"@stat[1]";
               printf $ausgabedatei '%25s',"@ausgabe[0]\n";

               printf $ausgabedatei "Landesdirekt:";
               printf $ausgabedatei '%25s',"@stat[2]";
               printf $ausgabedatei '%25s',"@ausgabe[1]\n";

               printf $ausgabedatei "VNR:";
               printf $ausgabedatei '%25s',"@stat[3]";
               printf $ausgabedatei '%25s',"@ausgabe[2]\n";

               printf $ausgabedatei "Schadensjahr:";
               printf $ausgabedatei '%25s',"@stat[4]";
               printf $ausgabedatei '%25s',"@ausgabe[3]\n";

               printf $ausgabedatei "SNR:";
               printf $ausgabedatei '%25s',"@stat[5]";
               printf $ausgabedatei '%25s',"@ausgabe[4]\n\n";   c

              print $ausgabedatei "__________________________________________________________________\n\n";
}

printf $ausgabedatei "SNR: %25s %25s\n", $stat[$index], $ausgabe[$index];

#!/usr/local/bin/perl -w

my $a = "Hugo";
my $a1 = "Hugo bla";
my $b = "Hugo Ernst";
my $b1 = "Hugo";

print _stringFormat($a, 30, " ");
print _stringFormat($a1, 30, " "), "\n";
print _stringFormat($b, 30, " ");
print _stringFormat($b1, 30, " "), "\n";
print "fertig :-)";

sub _stringFormat { # variable, länge, zeichen
        return $_[0] . $_[2] x ($_[1] - length($_[0]));
}

# erster String linksbündig
printf $ausgabedatei "%-20s %25s %25s\n", 'SNR:', $stat[$index1], $ausgabe[$index2];

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