my $y = &subroutinefrom_myperlscript();
  $self->set_y($y);