my $ref = \&Sub1;

$ref ->('Fest')->('in')->('der')->('...') ;

sub Sub1 
  { 
  print "$_[0]"; 
  return \&Sub3;
  }
  
sub Sub2 
  { 
  print "$_[0] Erden "; 
  return \&Sub4;
  }

sub Sub3 
  { 
  print " gemauert $_[0] "; 
  return \&Sub2;
  }

sub Sub4 
  { 
  print "$_[0]\n"; 
  return;
  }