foreach $i(@lines){