use strict;
use warnings;

use feature 'say';

my @array = (1,2);

say '@array is: ', \@array;
say '  - ', \$array[0];
say '  - ', \$array[1];

say "Iterating over the elements:";
say '  - ', \$_ for @array;

MyFunction(@array);
sub MyFunction
{
  say "In MyFunction";
  say '@_ is: ', \@_;

  say '  - ', \$_[0];
  say '  - ', \$_[1];

  say "Slice";
  @_[0,1] = (3,4);
  say '  - ', \$_[0];
  say '  - ', \$_[1];

  say "Array overwrite";
  @_ = (5,6);
  say '  - ', \$_[0];
  say '  - ', \$_[1];
}



##</code><code>##

@array is: ARRAY(0x6f66a0)
  - SCALAR(0x81ee20)
  - SCALAR(0x81ee38)
Iterating over the elements:
  - SCALAR(0x81ee20)
  - SCALAR(0x81ee38)
In MyFunction
@_ is: ARRAY(0x724630)
  - SCALAR(0x81ee20)
  - SCALAR(0x81ee38)
Slice
  - SCALAR(0x81ee20)
  - SCALAR(0x81ee38)
Array overwrite
  - SCALAR(0x81f3c0)
  - SCALAR(0x81f3f0)

##</code><code>##

@a = (1,2);
@b = (3,4);
(@a,@b); # my list