Equivalências em Perl