#!/usr/bin/perl

use strict;
use warnings;

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

print scalar(@{$referer{'items'}});
print "\n";