Select Code to Download

use strict;
use warnings;
...
    for (values %l) { $c++ if $_; }
    return $c;
}

abdep
abeou
adkmp
akmou