my @items = map {$_ % 100 } @_;
my $sum = 100;
$sum -= $_ for @items[0..2];
$items[ $sum<0?0:2 ] += $sum unless $sum == 0;