#!/usr/bin/perl

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