Perl Can't use string as a symbol ref while strict refs

Question

I need some guidance with the following Perl code. When I leave the no strict \'refs\', the sub works fine. But if the no strict \'refs\'

Answer 1

Don't assign $fh = $_ it's not doing anything useful.

@FH should be %FH and instead of the push try:

$FH{ $_ } = $fh

Replace the $1 with $FH{ $1 }.