my $pre = (shift) % 100;
    my $amble = (shift) % 100;
    my $post = (shift) % 100;
    $pre = 100 - $amble   if( $amble + $pre > 100 );
    $post = 100 - ($amble + $pre);
    print "$pre + $amble + $post = ",
        $pre + $amble + $post , "\n";