$VAR1 = { 'ClickFraudReport' => { 'Name' => 'Click Fraud Report', 'TimeRange' => 'Thursday, November 23, 2006 - Wednesday, November 29, 2006'. 'Campaigns' => [ { 'Name' => 'Google 140', 'Cost' => '$330.14', # etc }, { # etc }, ], }, }; #### my $report = $res->result; foreach my $campaign ( @{ $report->{ClickFraudReport}{Campaigns} } ) { print $campaign->{Name}; print $campaign->{Cost}; }