#!/usr/bin/perl

print "test=$test\n";
print "this won't be printed\n" if (scalar @{$test}[0]);
print "test=$test\n";

##</code><code>##

test=
test=ARRAY(0x7fcc8c004ee8)