my($mode,$td,$ta,$rd,$ra,$ca,$cd) = map {''} (1..7);