Как использовать свойство/переменную класса в качестве ручки файла печати в Perl?

Я хочу сделать то же самое, что и

open MYFILE, ">", "data.txt";
print MYFILE "Bob\n";

но вместо этого в переменной класса, как

sub _init_tmp_db
{
    my ($self) = @_;

    open $$self{tmp_db_fh}, ">", "data.txt";
    print $$self{tmp_db_fh} "Bob\n";
}

Это дало мне эту ошибку: 'String found where operator expected near "Bob\n"'

что мне делать?