@evenchars = 
    map { $_->[0] } 
       dumplist 
          grep { $_->[1] % 2 } 
             map { [ $_, ord($_) ] } 
                a..l;
 
#prints
 
$VAR1 = [
          [
            'a',
            97
          ],
          [
            'c',
            99
          ],
          [
            'e',
            101
          ],
          [
            'g',
            103
          ],
          [
            'i',
            105
          ],
          [
            'k',
            107
          ]
        ];