$employee->salary($employee->salary()*1.1);

##</code><code>##

$employee->salary() *= 1.1;

##</code><code>##

#! perl -slw
use strict;
package Test;

my %numbers;
sub new{
	my $self = bless \rand, shift;
	$numbers{$self} = 0;
	return $self;
}
sub number :lvalue { $numbers{+shift}; }

package main;

my $number = Test->new;
$number = 3;
print $number;
$number *= 1.5;
print $number;

__END__
3
4.5