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