#! perl -slw
use strict;
use List::Util qw[ sum shuffle ];

sub partition {
    my( $limit, $aRef ) = @_;
    my @in = sort{ $a <=> $b } @$aRef;
    my $target = sum( @in ) >> 1;
    my( $best, @best ) = 9e99;
    my $soFar = 0;
    my @half;
    for( 1 .. $limit ) {
        #print "$soFar : [@half] [@in] [@best]"; <>;
        $soFar += $in[ 0 ], push @half, shift @in while $soFar < $target;
        return( \@half, \@in ) if $soFar == $target;

        my $diff = abs( $soFar - $target );
        ( $best, @best ) = ( $diff, @half ) if $diff < $best;

        $soFar -= $half[ 0 ], push @in, shift @half while $soFar > $target;
        return( \@half, \@in ) if $soFar == $target;

        $diff = abs( $soFar - $target );
        ( $best, @best ) = ( $diff, @half ) if $diff < $best;

        @in = shuffle @in;
    }
    my %seen; $seen{ $_ }++ for @best;
##    return \@best, [ grep !$seen{ $_ }--, @$aRef ]; ## Fix duplicates bug
    return \@best, [ grep{ !exists $seen{ $_ } or !$seen{ $_ }-- } @$aRef ];
}


for (
    [ 62, 83, 121, 281, 486, 734, 771, 854, 885, 1003 ],
    [ 7,10,12,15,40 ],
    [ 8, 14, 32, 29  ],
    [ 41, 37, 37, 43 ],
    [ 99, (1)x99  ],
    [ 1 .. 99 ],
    [ map $_*2+1, 1 .. 50 ],
    [ map int( rand 1000 ), 1 .. 100 ],
) {
    my( $a1, $a2 ) = partition( 1e2, $_ );
    my( $t1, $t2 ) = ( sum( @$a1), sum( @$a2 ) );
    print "\n@$a1 := ", $t1;
    print "@$a2 := ", $t2;
    print "Diff: ", abs( $t1 - $t2 );
}

##</code><code>##

c:\test>708290.pl

734 771 854 281 := 2640
121 62 83 885 486 1003 := 2640
Diff: 0

7 10 12 15 := 44
40 := 40
Diff: 4

8 32 := 40
14 29 := 43
Diff: 3

37 41 := 78
37 43 := 80
Diff: 2

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 := 99
99 := 99
Diff: 0

5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 := 2475
94 1 72 99 2 81 96 86 79 74 91 85 92 89 76 71 98 88 93 97 77 84 78 90 73 75 95 3 4 87 80 83 82 := 2475
Diff: 0

63 65 67 69 71 73 101 79 99 11 75 91 81 87 95 5 37 13 41 77 := 1300
27 29 3 33 21 53 85 61 23 17 47 49 45 51 35 89 7 55 43 57 59 15 25 31 39 9 93 83 97 19 := 1300
Diff: 0

248 28 269 882 847 389 242 192 484 519 123 259 528 363 410 722 110 34 501 922 695 622 831 48 464 234 548 815 702 725 403 629 29 579 365 81 294 47 927 879 639 470 902 318 313 736 228 230 750 38 620 77 702 426 582 := 25020
923 457 738 7 847 234 696 334 200 989 231 744 528 402 619 485 791 272 261 533 525 298 724 615 253 71 957 836 904 105 575 929 537 802 791 941 437 538 740 165 229 528 867 609 753 := 25020
Diff: 0