my @fields = qw( Vater Muter Großmutter );

my $format = ( "%10s " x @fields ) . "\n";

printf $format, @fields;