#!/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];
}