__CONDENSED_OUTPUT__
$VAR1 = [1,2,3];
print() on unopened filehandle Dumper at D:\perl\t.pl line 4.
$VAR1 = [7,8,9];