no strict qw/refs/;
foreach my $e (qw/a c b/) {
  if ($$e) {
    $combined .= $e . "=" . $$e;
  }
}