Select Code to Download

my $sql = "select power_level, decode(power_level,null,'NA',decode(sig
+n(power_level-30),-1,'1',
...
                       from hosts
                       where market_id = '$market'
                       )";

my ($lessThan, $inBetween, $greaterThan) = 0;
       foreach my $code (@powerCodes) {
...
           $greaterThan++;
         }
       }