use v5.10;

my ($a, $b) = (0, 0);

sub lv :lvalue { $_[0] }

lv($a || $b) = 2;
lv($a && $b) = 1;

say $a;
say $b;