my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError=>1});

##</code><code>##

SELECT MID,Mname
FROM ML_Lists
WHERE MID != 'NA'
OR ML_Lists != 'NA'

##</code><code>##

my @list;
my $sth = $dbh->selectall_arrayref('select MID,Mname from ML_Lists');
for (@$sth) {
   push @list,$_ if grep(/^NA$/,@$_) != @$_;
}