#!perl

use strict;

my $list = undef;
print ref $list, "\n"; # should print only a blank line

my $item = $list->[0];
print ref $list, "\n"; # should print ARRAY