Select Code to Download

      k1 0.2
      k2 0.9
...
      k18 3.62
      k19 3.8
      k20 3.89

  #!/usr/bin/perl
  use strict;
...
    my $RandKey = (keys %{$href}) [int(rand(scalar (keys %{$href})))];
    print "$RandKey $href->{$RandKey}\n";
 }