HashSequences(); #### return (%seq, $id); #### $bestday = max($mon,$tue,$wed,$thu,$fri); #### return ($id, %seq); #### my ($thisid, %thatseq) = HashSequences();
## return (%seq, $id); ##
## $bestday = max($mon,$tue,$wed,$thu,$fri); ##
## return ($id, %seq); ##
## my ($thisid, %thatseq) = HashSequences();