sub updateRec {
   my $new = shift @_;