print @{$lines[0]}[0,1,2];