Select Code to Download

use List::Util qw{ sum };
sub L() { 0}   # left
...
    my $score = abs( sum( @{ $ans[L] } ) - sum( @{ $ans[R] } ) );
    return $score,  $ans[L],  $ans[R];
}