print $lines[0][3], "\n";
# dasselbe wie:
print $lines[0]->[3], "\n";