$sth = $dbh->prepare(qq{
  
  SELECT 
   avg(DECODE(cat1, -1,null,cat1)),
   .
   .
   .
   avg(DECODE(cat15, -1,null,cat15))
      FROM TABLE
	  });