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];
}