sub foo {
    my $self = shift;
    my $old = $self->{'foo'};
    $self->{'foo'} = shift if @_;
    $old;
} #foo