# Beispiel-Code
my $x = "v1\nv2\nv3\n";

my %vars;
my $varstring = '';

foreach ( split( /\n/, $x ) ) { 
    $vars{$_} = $_; 
    $varstring .= '$vars{' . $_ . '},';
}
chop($varstring); # letztes Komma entfernen


my $FORMATSTRING = "format OUTPUT = \n" .
                     ('@' . '<' x $maxLen . " ") x $values .
                    "\n" .
                    $varstring . 
                    "\n.\n";
            
eval($FORMATSTRING);