<perl>
sub hmm{
my $ist = shift;
my $nur = shift;
return ($ist, $nur); 
}

my ($aber,$einarray) = &hmm("Das","auch");

out $aber;
out $einarray;
</perl>