my $t1 = 1; # ist ja eine zahl, keine zeichenkette: keine "1"
if ($t1 == 1) { # ist zahl, deshalb == und nicht eq
  my $a1 = "Hallo1";
  &next1($t1, $a1);
}
# $t1 kann nur entweder 1 oder 2 sein, nicht beides, deshalb
# sparen wir durch das elsif eventuell eine abfrage
elsif ($t1 == 2) { 
  my $a1 = "Hallo2";
  &next2($t1, $a2);
}
# --------------------------------------
sub next1 {
  my ($t1, $a1) = @_;
  my $z1 = "nix da 1";
  &new1($a1, $z1);
} # next1
# --------------------------------------
sub next2 {
  my ($t1, $a1) = @_;
  my $z1 = "nix da 2";
  &new2($a1, $z1);
} # next2
# --------------------------------------
sub new1 {
  my ($a1, $z1) = @_;
  print "das ist '$a1' und '$z1'\n";
} # new1
# --------------------------------------
sub new2 {
  my ($a1, $z1) = @_;
  print "das ist '$a1' und '$z1'\n";
} # new2
# --------------------------------------