my @missing;
foreach my $f (@fields) {
  if ($account{$f} eq undef) {
    push(@missing, @acct_fields{$f});
  }
}

##</code><code>##

if ($#missing > -1) {
  $" = ', ';
  do something....
}