#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{   package L;
    use overload
        '+=' => sub {
            my ($self, $inc) = @_;
            $_ += shift @$inc for @$self;
        };
    sub new :lvalue {
        bless $_[1], $_[0]
    }
}
sub L :lvalue { 'L'->new(\@_) }

my ($x, $y, $z) = (10, 20, 30);
L($x, $y, $z) += L(3, 2, 1);
say "$x $y $z";  # 13 22 31