Select Code to Download

for my $nnot ( map { $solution[-1] + $_, $solution[-1] - $_ }
                   nmap { $_ if ($availableIntervals[$_] > 0) }
                        (1 .. 11)
              ) {

sub nmap(&@){
   my $rout = shift; # get mapping routine
...
   }
   return @list;
}