Select Code to Download

foreach my $key (@sorted) {
    next unless $key eq '614' .. $key eq 'C18';
    print "$key: $db{$key} \n";
}