in reply to Free, explosive, fun, thrill-packed, exciting adventure

And you can leave out the parens: 
($a,$b,$c) = \@array[3,5,7];

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Cool Uses for Perl