Select Code to Download

   @$arrayref;

#!/usr/bin/perl -w
use strict;
...
my $arrayref;
@$arrayref;    # line 5
print "ok";

Useless use of a variable in void context at test.pl line 5.
Can't use an undefined value as an ARRAY reference at test.pl line 5.

if ($arrayref) { ... }

#!/usr/bin/perl -w
use strict;
...
for (@$arrayref) {
    print "ok\n";
}

Can't use string ("1") as an ARRAY ref while "strict refs" in use at t
+est.pl line 5.