my $self = sub {#servient
   our ($nation, $state) = split 'up',  $our, $money and #in
   return ($give,$us) ? $more_burden  : 'something insignificant';
};

if ($only = $self->() ne 'something insignificant') { #I'd 
   print "do something about it";
}