#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Data::Alias;

sub foo($) {
  my $array = shift;
  $array->[0]='3';
  $array->[1]='4';
  unshift(@$array,'<<<');
  push(@$array,'>>>');

  print Dumper($array);
}

my @array = qw(eins zwei drei vier);

print Dumper(\@array);

foo alias [ @array[2 .. $#array] ] ;

print Dumper(\@array);