$ref = \&Perl_1;
$ref->('in ')->('ist')->('alles');
sub Perl_1 {print "$_[0]"; return \&Perl_3;}
sub Perl_2 {print "$_[0] moeglich "; return;}
sub Perl_3 {print "Perl $_[0] "; return \&Perl_2;}