#!/usr/bin/perl

use strict;
use warnings;

my @items = qw( Toothbrush Bluetooth Sabretooth Blues Dixie );
my $referer = { 'items' => \@items };

print "Groesse Array: ", scalar(@{$referer->{'items'}}), "\n";
print "Letztes Element: ", ${ $referer->{'items'} }[$#{ $referer->{'items'} }],"\n";

my $position = $referer->{'items'};
my $lastitem = $#{ $position };
print "Letztes Element: ", ${ $position }[ $lastitem ],"\n";