I didn't find the problem in the code. But you might want to rethink SOAP::Lite

use SOAP::Lite;
my $google_search = SOAP::Lite->service("file:$google_wdsl");
my $results = $google_search ->
                doGoogleSearch(
                        $google_key, $query, $current_page*10, 10, "fa
+lse", "",  "false", "","","");

foreach my $result (@{$results->{resultElements}}) {
#do as you will with the results.
        }
[download]

Doesn't get a whole lot easier than that.