Select Code to Download

my $lookup = '';
while( <SMALLFILE> ) {
...
    chomp;
    print if $lookup{$_};
}

my %acgt = (
   A => '00',
...
    chomp;
    print if $lookup{encode($_)};
}