Select Code to Download

use strict;

...

# randomly selected key is...
print "$key selected\n";

my $value_sum = eval join '+', values %hash;
my $rnd_num = int(rand($value_sum ));