foreach my $f (@{ $self->{Field_Order} }) { next unless exists $fields_to_show{$f}; my $val = (defined $self->{Form}{$f} ? $self->{Form}{$f} : ''); $self->success_page_field( $self->escape_html($f), $self->escape_html($val) ); }