foreach $key ( sort keys %rpt_tbl )
              {
                    push(@radio_loop, {rpt_no => $key, rpt_descr => $rpt_tbl{$key}});
              }