my $combined = join ' ', grep $_, map { my $value = eval "\$$_"; $value ? sprintf("%s=%s", $_, $value) :  undef } ( 'a' .. 'z' );

##</code><code>##

  my $x = 3;
  print f($x);  # 'x'