Select Code to Download

sub dumplist {
   use Data::Dumper;
...
     dumplist
       grep { ... }
         @input;

@evenchars = 
    map { $_->[0] } 
...
            107
          ]
        ];