#!/usr/bin/perl

use strict;

my $arrayref = [];

if(defined @$arrayref)
{
    print "arrayref defined\n";

}
else
{
    my $ref = ref $arrayref;
    print "arrayref not defined ref=$ref\n";
}