$old = $*;  $* =1;