my $a = 10;
my $b = 20;

sub mysub : lvalue {
     if ($_[0] > 0) { return $a } else { return $b }
}
mysub(2)  = 15; # Set $a to 15
mysub(-1) =  9; # Set $b to 9