Green::updateRec(%A­RGS) #### sub updateRec { $new = shift @_; #### $new = (%$new); #### sub updateRec { my $new = shift @_;