Select Code to Download

while ($sth->fetch()) {
    # do comparison
}

my %sites_list;
@sites_list{split(" ", $sites)} = ();        # hash slice for quicker 
+lookup

...
        print "delete!";
    }
}