`tlist > somefile`;
open DATA, 'somefile';
@tlist=<DATA>;
close DATA;
unlink 'somefile';