$this -> { _codereference } = sub { return "Do " . shift() . " so.\n"; }

# ...

print FH $this -> { _codereference }{ "believe" );