Help for this page

Select Code to Download

Select or download this

sub par_num {
    $a->{ (keys %$a)[0]} <=> $b->{ (keys %$b)[0]}
};