Select Code to Download

print map {"$_->[0]\n"}
      sort {$a->[1] <=> $b->[1]}
      map  { [$_, (/C(\d*)/)[0]] }
      grep { /P/} 
      @compounds;