Select Code to Download

my( $key, $val );
my $ctr = 0;
while( my( $k, $v ) = each %hash ) {
  rand( $ctr++ ) < 1 && do { $key = $k; $val = $v };
}