print $lines[0]->[3],"\n",$lines[0]->[4];