Select Code to Download

#!/usr/bin/perl -w
use strict;
...
HIT: code2
HIT: code34
HIT: code90

%codes = (
           ' code90' => 1,
...
           ' code1' => 1,
           ' code34' => 1
         );