# here's a cheaper way
# @tlist = <TDATA>;