2013-11-14T15:23:29 pq

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