Select Code to Download

$hash->{a} = 30;
$hash->{b} = 20;
...
my $element = randomKey($hash);
$string .= $element;
}

my @array;
foreach $key (keys %{$hash}){
...
  push @array,  $key;
 }
}