sub test{ 
    my($p1,$p2,$p3) = map shift // $_,(1,2,3); 
    print "p1:$p1; p2:$p2; p3:$p3"; 
};;

[0] Perl> test();;
p1:1; p2:2; p3:3

[0] Perl> test( 'a', 'b', 'c' );;
p1:a; p2:b; p3:c

[0] Perl> test( 'a', , 'c' );;
p1:a; p2:c; p3:3

[0] Perl> test( 'a', undef, 'c' );;
p1:a; p2:2; p3:c