my @array = 1..10;
my @hash = ('x' => 20, 'y' => 30);
&Sub1(@array, %hash);
sub Sub1 {
  my (@array1, %hash1) = @_;
  print "@array";
}