I find nested ternaries are much clearer using the code layout suggested by the book "Perl Best Practices"

sub ddd {
            # code     # value
    my $a = $_[0] == 1 ? 'p' 
          : $_[0] == 2 ? 'pp'
          :              $_[0]
          ;
    my $b = $_[1] == 3 ? 'w'
          :              $_[1]
          ;
    my $c =              $_[2];
     
    print v "  < $a >  < $b > < $c >";
}
[download]