#! /usr/bin/perl 
routine('eins', 'zwei'); 
sub routine{
  my ($test,$zwei,$drei) = @_;
}