# fetch all values from inner hash; and only take "extract" from each value
my @text = map { $_->{extract} } values %{ $perl_data->{query}->{pages} };

print join "\n\n",
  "Ergebnisse: ",
  @text,
  '';