my @ranges = map{
   my $a = rand( 900 );
   [ $a, $a + rand( 1000 - $a ) ]
} 1 .. 7;