my ($einsref, $zweiref);

($einsref, $zweiref) =  tutnix();

print "1: ", join(",",@$einsref), "\n";
print "2: ", join(",",@$zweiref), "\n";

sub tutnix 
  {
  my @eins = (1..10);
  my @zwei = (11..15);

  return (\@eins,\@zwei);
  }