our $a = 1;
our $b = 2;
our $c = 3;
my $combined = join ' ',
               map { "$_->[0]=$_->[1]" }
               grep { $_->[1] }
               map { [ $_, do { no strict 'refs'; ${$_} } ] }
               qw(a b c);