Select Code to Download

sub sortable_key {
   my $key = shift; # e.g. "E1,E10";
...
print map { "$_ = $strings{$_}\n" }
   sort { sortable_key($a) cmp sortable_key($b) }
      keys %strings;