hi friend,

Sorry for my late reply to you. Just before i see your task so i now send my response to you.i dont know that it will be helped you or not.

Anyway i just share my idea

open (NAME, "c:/name.txt");
while ($line = <NAME>) {
$line =~ s/\n//gs;
push (@name, $line);
}
close NAME;
open (NUM, "c:/num.txt");
while ($line = <NUM>) {
$line =~ s/\n//gs;
push (@num, $line);
}
close NUM;

open (SUP, ">c:/sup.txt");
for ($i=0; $i<=$#name; $i++) {
print SUP $name[$i] . ":" . $num[$i] . "\n";
}
close SUP;