sub FETCH {
        my $self = shift;
        do_domething;
        $self->SUPER::FETCH(@_);
    }

##</code><code>##

$ perl586 -wle 'sub f { $_[0] = "x" } $a = "abcd"; f(substr($a,0,2)); print $a'
xcd