sub subarray {
    my ($a, $b) = @_;
    local *_helper = sub {
        my $i = $_[0];
        return if !$i--;
        $a->[$i] -= $b->[$i];
        _helper($i);
    };
    _helper(0+@$a);
}

subarray(\@a, \@b);