Perl assignment

Perl assignment