$ perl test.pl *.txt
$VAR1 = [];