Seriously, WTF?

perl crap I deal with.pl

    $self->assign(
        'ext_list',
        [   map {
                my @l     = split /,/;
                my $count = 0;
                my $r     = [
                    $l[0],
                    {   map +( int( $count++ % 2 ) == 0 ? lc $_ : $_ ),
                        @l[ 1 .. $#l ]
                    }
                ];
                for ( values %{ $r->[1] } ) {    # url-decode here
                    $_ = uri_unescape($_);
                }
                $r;
                } split /;/,
            $rA->[0]
        ],
        'supress_cookie' => $rA->[1],
        'options' =>
            { map +( split "\t", $_, 2 )[ 0, 1 ], split /;/, $rA->[2] },
    );