Select Code to Download

#!/usr/bin/perl
use warnings;
...
my ($x, $y, $z) = (10, 20, 30);
L($x, $y, $z) += L(3, 2, 1);
say "$x $y $z";  # 13 22 31