#!/usr/bin/env perl -l

use strict;
use warnings;

my @a = (1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024);

{
    print '*** Unsorted ***';
    my ($sum, $iterations) = (0, 0);

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

        ++$iterations;
    }

    print "Sum: $sum";
    print "Iterations: $iterations";
}

{ 
    print '*** Sorted ***';
    my ($sum, $iterations) = (0, 0);

    for my $x (sort { $b <=> $a } @a) {
        last unless $x > 128;
        $sum += $x; 
        ++$iterations;
    }

    print "Sum: $sum";
    print "Iterations: $iterations";
}