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

##</code><code>##

    my $h = HTML::Clean->new($filename, 9);