Select Code to Download

# you can get rid of the ($netHash{$val} > 1.0) test
# I only included it to make the example more like yours
...
   }
   ...
   ...

sub printHash {
    my $href = shift;
...
    my $RandKey = $href_keys[int(rand(scalar @href_keys))];
    print "$RandKey $href->{$RandKey}\n";
}

foreach my $n ( 1 .. 100 ) {
    printHash( $capVal_hash{$n} );
}

my @range_destination
    = ( [  1.0,   1.4,   1 ],
...
        }
    }
}