#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";
   }

&egal('irgend','welche','parameter');

sub egal {
 my @parameter = @_;
 print ++$x, ': ', $_, "
" foreach @parameter;
}


1: irgend
2: welche
3: parameter

use strict;
my $string = 'ja';

if($string eq 'ja'){
  my $var = 'test';
  next1($var,'hallo');
}

sub next1{
  my ($param1,$param2) = @_;
  my $var2 = 'Hallo Welt';
  print $param2," ",$param1,"\n";
  next2($var2);
}

sub next2{
  my ($param1) = @_;
  print $param1;
}

&Subroutine($param1, $param2);
 
sub Subroutine { # parameter landen in @_
  my ($p1, $p2) = @_; # hierher copiert
} # Subroutine

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
# --------------------------------------

&Subroutine(%hash);
sub Subroutine {
  my %hash = @_;
}

&Subroutine(%hash1, %hash2);
sub Subroutine {
  my (%h1, %h2) = @_;
}

$string = 5."irgendwas";