Select Code to Download

use warnings;
use strict;
...
open my $wfh, '>', $list_file or die $!;

print $wfh "$_->{filename}\n" for @list;

scratch
scratch/sftp.pl
...
scratch/or.pl
scratch/test
scratch/test/a.txt