#!/usr/bin/perl
use strict;
use warnings;

sub test
{
  my ($wert1,$wert2,$array_ref,@array)=@_;
  print "Ich bin $wert1\n";
  print "Das ist $wert2\n";
  print 'Ich bin '.join(', ',@$array_ref)."\n";
  print 'Ich bin nicht '.join(', ',@array)."\n";
}

my @array_a=('schlau', 'geschickt', 'gutmuetig');
my @array_b=('gross', 'schnell', 'beinhart');

&test('Programmierer', 'eine Funktion', \@array_a, @array_b);