The error goes away if I change:

    if ($x eq $y)    {print $fh{$x} @{ $testhash{$y}};}
[download]

to:

    if ($x eq $y)    {print {$fh{$x}} @{ $testhash{$y}};}
[download]

Notice the extra curlies around the filehandle; see print for an explanation.