while (my @row = $sth->fetchrow_array) {
                if($row ne 'NA'){
[download]

this is just plain wrong. @row is an array. there is no $row. why aren't you using strict and warnings? this shouldn't even compile.

you could make the database do the work and add a bunch of "where field != "NA" to your query. otherwise, you'll have to parse every field returned somehow.