sub1 {
   ...
   $_[0]->(\&sub3) ;# => sub2(\&sub3)
}