my @files = map { "'$_'" }
            grep {not $chompedList{basename($_)}
            </usr/myfiles/*.htm>;
system "scp -C @files user\@backupserver:/usr/local/apache/htdocs";