sub subA {
  $rc_contA=shift;

  $rc1= sub {block1; sub2( $rc2 ) }
  $rc2= sub {block2; sub3( $rc3 ) }
  $rc3= sub {block3; &$rc_contA; }

  $rc1->(); #aufruf
}