help Perl assignment

help Perl assignment