Select Code to Download

#!/usr/bin/perl  
use strict;
...
        map {"$_ ($data{$code}{$_})"} sort {$a <=> $b} keys %{$data{$c
+ode}};
    print "\n";
}

{
  Bet01 => { 224 => 1, 230 => 2, 238 => 5 },
...
Bet05: 0 (4), 101 (2), 103 (2)
Bet06: 138 (1), 146 (7)
Bet12: 108 (1), 110 (1), 112 (3), 114 (1), 116 (1), 118 (1)