Select Code to Download

  if    ($sel == 1) { show_installed() }
  elsif ($sel == 2) { show_available() }
  elsif ($sel == 3) { rgetpkglist()    }
  ...

  my %dispatch = (
    1 => \&show_installed,
...
  }

  $dispatch{$sel}->();