use Algorithm::Treap;
my $rand=Random::Treap->Tied_Hash();
$rand->{ja}="just another\n";
$rand->{ph}="perl hacker\n";