if(defined @$arrayref && @$arrayref)
{
    # do something with @$arrayref like:
    for my $i (@$arrayref)
    {
          print $i;
    }

}

##</code><code>##

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


##</code><code>##

my $arrayref = [];

##</code><code>##

my $arrayref;