use strict;
use warnings;

sub routine1
{
my $daten1 = $_;
my @daten2 = @_;

if(index($Zip[0],"Report") != -1)
            {
            
               
 routine2();
            }
            else
            {
               
 
                  
 EmmaCov();
            }  &nbsp
;     
}

sub routine2
{

###hier brauche ich die selben daten die in routine1 drin ###standen von $_ und @_ . normaler weise
my $test1 = $_;
my @test2 = @_;
###doch das geht nicht da beide ($_ und @_) schon in ###routine1 uebergeben worden sind.
}

use strict;
use warnings;

sub routine1
{
    my $daten1 = $_;
    my @daten2 = @_;

    if(index($Zip[0],"Report") != -1)
    {
        routine2($daten1,@daten2);
    }
    else
    {
        EmmaCov();
    }     
}

sub routine2
{
    my ($test1,@test2) = @_;
    # weiterer Code
}

my $daten1 = $_;
my @daten2 = @_;

sub test
{
 my $v1=$_;
 my @v2=@_;
 print "V1=$v1 V2=@v2\n";
}


$_="ein kleiner Test";
@_=("TEST", "TEST2", 3, 4, 5);
&test;
$_="kein Test";
&test("TEST", "TEST2", 3, 4, 5);

sub test
{
 my $v1=shift(@_);
 my @v2=@_;
 print "V1=$v1 V2=@v2\n";
}

&test("ein kleiner Test", "TEST", "TEST2", 3, 4, 5);

sub test
{
 my $v1=shift(@_);
 my @v2=@_;
 print "V1=$v1 V2=@v2\n";
}

&test("ein kleiner Test", "TEST", "TEST2", 3, 4, 5);

# oder
sub test {
   my ($v1, @v2) = @_;
   # ...
}
# oder
sub test {
   my ($v1, @v2) = (shift, @_);
   # ...
}

#!/usr/bin/perl
use strict;
use warnings;

$_ = 'test';

routine1('hallo','welt');

sub routine1
{
   my $daten1 = $_;
   my @daten2 = @_;
   print sprintf("date1: %s - daten2: %s\n",$daten1,join(" .. ",@daten2));

       routine2($daten1,@daten2);
}

sub routine2
{
   my ($test1,@test2) = @_;
   print sprintf("test1: %s - test2: %s\n",$test1,join(" .. ",@test2));
}

~/entwicklung 9> perl params.pl 
date1: test - daten2: hallo .. welt
test1: test - test2: hallo .. welt

foreach(@array){
    my $daten1 = $_;
    # weiterer Code
}

#!/usr/bin/perl
use strict;
use warnings;

routine1('hallo','welt');

sub routine1
{
  my @daten2 = @_;
  my $daten1;
  foreach(@daten2)
    {
        ### macht eine query und bekommt dann $_ raus
        $daten1 = $_;
##hier macht er halt die auswertung und wenn a = a dann geht er zur routine2
                          routine2($daten1,@daten2);
             }
}

sub routine2
{
  my ($test1,@test2) = @_;
  print sprintf("test1: %s - test2: %s\n",$test1,join(" .. ",@test2));
}