open (FL,"+<file.txt")
foreach $ans(@arr)
{
print FL $ans."\n";
}
close FL;