local $fh erases the content of $fh. And even if it didn't, open doesn't takea variable name for its first argument (just a variable).

You can simply use

open(my $fh, '<', 'test.out')
[download]

Open returns a new anonymous file handle in $fh every time.