Select Code to Download

if(defined @$arrayref && @$arrayref)
{
...
    }

}

#!/usr/bin/perl

...
    print "arrayref not defined ref=$ref\n";
}

my $arrayref = [];

my $arrayref;