my $sum;
foreach my $x(@a) {
if($x>128) {
    $sum +=$x;
}
}

##</code><code>##

fun_a($x) && fun_b($x) &&.....&&fun_z($x)