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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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