foreach my $filename (@file_list) {
    chomp $filename;
    clean_file($filename);
}