my @array = 1..10;
my @hash = ('x' => 20, 'y' => 30);
&Sub1(\@array, \%hash);
sub Sub1 {
  my ($arrayRef, $hashRef) = @_;
  my @array1 = @$arrayRef;
  my @hash1 = %$hashRef;
  print "@array";
  # oder besser direkt mit den referenzen weiterarbeiten:
  # print "@$arrayRef";
}