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