sub subarray {
    my ($a, $b) = @_;
    local *_helper = sub {
        return if !@_;
        $_[0] -= $_[-1];
        shift; pop;
        &_helper;
    };
    _helper(@$a, reverse(@$b));
}

subarray(\@a, \@b);