readline(${$sym})
    readline(*{$sym})

or in your particular case:

    readline(*{$data[$i]->{FH}})