Help for this page
while (<FH>) { chomp ; @array = split ; # do something with @array }
while (<FH>) { $line = $_ ; ... # do something with @array; $_ is preserved so you # can use it again }