Select Code to Download

use Text::CSV_XS qw(csv);

...
    14 => sub { $_ eq "SMPP" and ++$count },
    });
say $count;