sub SUBNAME($@;\%)