sub ddd {

a = $_[0];
b = $_[1];
c = $_[2];

if ($a == '1') { $a = 'p'; }
elsif ($a = '2') { $a = 'pp'; }

if ($b == '3') { $b = 'w'}

print v "  < $a >  < $b > < $c >";

}