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