Select Code to Download

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

last if $x == $#fields -1;