#use strict;
use warnings;

my $t1 = "1";

if ($t1 eq 1){
    $A1 = "Hallo1";
    next1();
   }
   if ($t1 eq 2){
       $A1 = "Hallo2";
       next2();
     }

sub next1{
   print "das ist $A1\n";
   $Z1 = "nix da";
   new1();
   }

sub next2{
   print "das ist $A1\n";
   $Z1 = "nix da";
   new2();
   }
#
sub new1{
   print "das ist $A1 und $Z2 \n";
   }

sub new2{
   print "das ist $A1 und $Z2 \n";
   }