wenn es nur ein key ist, kannst du das auch einfacher haben:
my ($DumbNumberedKey) = keys %{ $perl_data->{query}->{pages} };