file1:
1
2
3

file2:
55  1
65  2
76  3

##</code><code>##


open (file, "<file1");
while (<file>) {
@array=$_;
}

open (file2, "<file2");
open (out, ">out");
while (<file2>) {
@array2=$_;
($one, $two) = split (/\s+/, $_);
                }

foreach $file2 (@array2) {
foreach $file1 (@array) {

###lost here