print $lines[0][0,1];