Perl_Assignment