my $pages = $data->{query}{pages};
for my $page_id (keys(%$pages)) {
   my $page = $pages->{$page_id};
   my $extract = $page->{extract};
   ...
}