Ich glaube $phase waere fuer dich dann:

response_done => sub { my($response, $ua, $h) = @_; ... }

Ein Versuch waere es wert.
Ansonsten vielleicht mal mit einer while() Schleife probieren.