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