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