sub sort_by_value {
 my $set = shift;
 print "start\n";
 print join(',',map {$_->value} @{$set->{"cards"}});
 print "end\n"; 
 @{$set->{"cards"}} = sort {$a->value <=> $b->value}  @{$set->{"cards"}};
}