sub myohmy {
  my $y = shift;
  my $x = "true" if ($y);
  my $x = "not true" if (!$y);
  return $x;
}
print "myohmy(0) = ", myohmy(0), "\n";
print "myohmy(1) = ", myohmy(1), "\n";
__END__
# outputs:
myohmy(0) = not true
myohmy(1) =

##</code><code>##

  my $ret;
  $ret = ... if ($put_try == 0);
  $ret = ... if ($put_try > 0);