Исправление chg, 26.11.14 00:33 (текущая версия) :
Почему my только для $filename и где use strict?
print $fh join "\t", @$ref;
ну ньюлайн сам добавь, или say, хотя нет , лучше добавь сам )))
Исходная версия chg, 26.11.14 00:28: