sub updateRec {

    $new = shift @_;

[...]