in reply to Need tips on portable Perl programming

perlport should provide useful information.
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom