my $response = 1;
doSomething(\$response);
#check the reponse and do something else

sub doSomething{
    my $lResponce = shift;
    #..do something which fails
    $$lResponce = 0
}