You could do something like:

my ($field, $value);

# then, inside your loop...
... { ...

  my @lines = (
    [ "NAME", "$fname $lname" ],
    [ "AGE", $age ],
    [ "WHATEVER", $whenever ],
    # ...
  );

  for (@lines) {
    ($field, $value) = @$_;
    write FORMAT;
  }

... } ...

format FORMAT =
@<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$field,          $value
.
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;