use Algorithm::Treap;
my $default=Treap->Tied_Hash(A => 121, B => 674, C => 970, D => 82, E => 658, F => 957);
$default->{D}=600;
$default->{A}=500;