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
}