foreach (@lines)
{
print $_;
}