[thelist] Perl loop -1

[Hugh Blair]

Again my Perl skills (-x) are showing. What is the way to
change the loop below to cycle through $field and print
all of them *except* the last one?

################################
  foreach $field (@Field_Order) {
     print "$field: $Form{$field}<br />\n";
  }
################################

Obviously this is a loop to read a form page. I just
don't want the final value which is the "Submit" button.

TIA

--
   Hugh