Help for this page
print <FILE>; #Prints entire file
while (<FILE>){
#!/usr/bin/perl use strict; ... print join "\t", @array, "\n"; } close ($FILE);