my $combined;

if ($a) {
   $combined .= "a=$a ";
}
if ($b) {
   $combined .= "b=$b ";
}
if ($c) {
   $combined .= "c=$c ";
}
...
...
...

##</code><code>##

my $combined = map { ??? } qw($a $b $c ...);