my %data;
$data{a} = 1;
$data{b} = 2;
$data{c} = 3;
my $combined = join ' ',
               map { "$_=$data{$_}" }
               grep { $data{$_} }
               sort keys %data;