如何在Perl构造函数中定义空数组?

我只是Perl的初学者,所以如果它听起来很愚蠢-对不起:)

我的问题是-我试图写一个类,它有一个空数组,在类的构造函数中定义。所以我这样做:

package MyClass;

use strict;

sub new {
    my ($C) = @_;
    my $self = {
        items => ()
    };
    bless $self, ref $C || $C;
}

sub get {
    return $_[0]->{items};
}

1;

稍后,我将使用简单的脚本测试我的类:

use strict;
use Data::Dumper;
use MyClass;

my $o = MyClass->new();
my @items = $o->get();

print "length = ", scalar(@items), "\n", Dumper(@items);

在运行脚本时,我得到以下信息:

$ perl my_test.pl 
length = 1
$VAR1 = undef;

为什么我做错了什么导致我 items 数组填充 undef ?

也许有人可以给我举个例子说明如何定义类,这样我就不会在数组中得到任何默认值了?