update assignment of Perl