>>39
ファイルハンドルのリファレンスがあるので、

sub hoge {
my ($filename) = @_;

open my $fh, "+>> $filename";
$tmp = $fh;
}

でいいとおもうが。$tmpがundefであることが確実なら

open $tmp, "+>> $filename";

でも可。