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

*                          First     Sector    Last
* Partition  Tag  Flags    Sector     Count    Sector  Mount Directory
       0      2    00    8392560  33558000  41950559
       1      3    01          0   8392560   8392559
       2      5    00          0  78156480  78156479
       3      0    00   41950560   6295440  48245999
       4      4    00   48246000   8392560  56638559
       5      0    00   56638560   8392560  65031119
       6      7    00   65031120   8392560  73423679
       7      0    00   73423680    106080  73529759