use List::Util qw(sum);
use List::MoreUtils qw(first_index);

#my @numbers = map { rand() * 100 } 1 .. 5;
#my @numbers = (8,14,32,29);
my @numbers = @ARGV;

my @b = split_evenly( \@numbers );
sub say { print @_,"\n" }

say "First container:  sum(@{$b[0]}) = ", sum @{$b[0]};
say "Second container: sum(@{$b[1]}) = ", sum @{$b[1]};

sub split_evenly {
    my @numbers = reverse sort { $a <=> $b } @{+shift};
    my $target = sum(@numbers) / 2;
    say "Target is $target";

    my @b;
    while ( 1 ) {
        my $index = first_index { $_ <= $target } @numbers;
        last if $index < 0;
        $target -= $numbers[$index];
        push @b, splice @numbers, $index, 1;
    }
    return \@b, \@numbers;
}
[download]