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