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