• Obfuscated:

        ($_=q|cevag"znkvzhz:";@_=(2..<>);juvyr($a=fuvsg@_){cevag"$a
        ";@_=terc{$_%$a}@_;}|)=~tr|a-z|n-za-m|;eval"$_";
      

• For compactness, or obscurity, or fun.
• Don't be afraid; most Perl is not written this way.