Select Code to Download

use strict;
use warnings;
...
}

print($arrayref\n");  # ARRAY(0x1abefc0)

use strict;
use warnings;
...
if (@$arrayref) {
   ...
}

use strict;
use warnings;
...
if ($arrayref && @$arrayref) {
   ...
}