foreach (  @array[ @{$ranges{$page}} ]  ) {
 print $_, "\n";
}