Help for this page
file1: 1 ... 55 1 65 2 76 3
open (file, "<file1"); ... foreach $file1 (@array) { ###lost here