sub HashRefSort($$){
    $$_[0]{'foo'} cmp $$_[1]{'foo'};
}