Исправление joy4eg, 25.11.14 17:58 (текущая версия) :
Я бы взял join:
print ${fh} join("\t" => @{$ref}), "\n" if ${$ref[2]} > 100;
Исходная версия joy4eg, 25.11.14 17:56:
print ${fh} join("\t" => @{$ref}), "\n";