#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(sum);

divide(8,14,32,29);
divide(7,10,12,15,40);

sub divide {
    my @array = reverse sort { $a <=> $b} @_;
    my $target = sum(@array) / 2;

    my @result;
    my $current = 0;

    for (@array) {
        if ($current + $_ <= $target) {
            push @result, $_;
            $current += $_;
        }
    }
    print "@result\n";
    print "Target: $target; Result: $current\n";
}
__END__
 32
Target: 41.5; Result: 40
7 15 12
Target: 42; Result: 34