#!/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));
}