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