open my $fh, "<", "file-list.txt" or die $!;
while (my $line = <$fh>) {
    chomp $line;
    push @files, $line;
}