my($sing, $unprefBase, $savgrp, $savbase);