#!/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";