my $x= some_sub();
    def( $x, -1 );