##
#!/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;
my $arrayref = 1;
for (@$arrayref) {
print "ok\n";
}
####
Can't use string ("1") as an ARRAY ref while "strict refs" in use at test.pl line 5.