Select Code to Download

use Data::Dumper;
...
...
  print join ' ', map { $items{$_} // ' ' x 35 } @keyorder;
  }
...