in reply to I am new to Perl

Have a look at Perl5 Wiki
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom