Select Code to Download

use strict;
use warnings;
...
    return true {$_->[REGULATION] eq $Regulation } @$aoa;
}

Number of up is:   9
Number of down is: 5
Number of NA is:   3