use IO::Handle;
print $test{FH}->getlines();