Help for this page

Select Code to Download

Select or download this
```
while(my $line = <READ>) {
```

Select or download this

try dumping after the foreach loop
print Dumper \@files;
...
          undef
        ];