my $combined;
foreach (sort keys %data) {
   my $val = $data{$_};
   # OR: my $val = do { no strict 'refs'; ${$_} };
   # OR: my $val = eval('$'.$_);
   next unless $val;
   $combined .= "$_=$val ";
}
chop($combined);