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