($r_array1, $r_array2) = foo();
  print "@$r_array1\n";
  print "@$r_array2\n";

  sub foo {
      my @array1 = (1..5);
      my @array2 = (6..10);
      return (\@array1, \@array2);
  }