sub updateRec {
   $new = shift @_;