Here's a possibility:

$x=0;
$dont = pop @fields;
foreach $field (@fields){
   # and so on...do something with $dont or don't
}
push(@fields, $dont);
[download]

You could write a C-style for loop, or I guess you could do

last if $x == $#fields -1;
[download]

but that's a little inefficient.