@a = map int( rand 256 ), 1 .. 10e6;;
$t=time; $n=0; $_ > 128 and $n+=$_ for @a; print time-$t, " $n";;
1.42373704910278  952115465

@a = sort{ $a <=> $b } @a;;
$t=time; $n=0; $_ > 128 and $n+=$_ for @a; print time-$t, " $n";;
1.31046295166016  952115465