sub defaults { 
    my( $p1, $p2, $p3) = map{ defined $_[0] ? shift : $_ }( 1, 2, 3 );
+ 
    print "p1:$p1; p2:$p2; p3:$p3\n"; 
};;
 
defaults('a', undef, 'c');