my %longform
...

$longform{name}    = 'Full Name';
$longform{pubname} = 'Publication Name';
...

my @ordering = qw(
    name
    pubname
...
);

foreach my $form (@ordering)
  {
  print MESSAGE "$form: $longform{$form}\n";
  }
...