Select Code to Download

  for my $oval( @categories ) {
    my $eval = shift @categories;
    printf ("%15s %15s\n", $oval, $eval );
  }