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