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.
}