print "return hoo ", hoo(), "\n" if hoo();

sub hoo {
  ($a,$b) = 0;
}