#!/usr/bin/perl 

use strict;
use warnings;

use Data::Dumper;

my $reihe_ref = [ 'A', 'B', 'C', 'D', 'E' ];

# Teilstück nach Dereferenzierung
my @die_ersten_drei = @{$reihe_ref}[0 .. 2];

print Dumper( \@die_ersten_drei );

# das liefert eine Warnung und das erste Element
my @die_letzten_drei = $reihe_ref->[2 .. 4];
print Dumper( \@die_letzten_drei );