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