@AofLines = ( 'this is line one', 'this is line two' );;

pp \@AofLines;;

[
    "this is line one", 
    "this is line two"
]

print $AofLines[ 0 ];;
this is line one

print +( split ' ', $AofLines[ 1 ] )[ 3 ];;
two

##</code><code>##

@AofAofWords = ( [ qw[this is line one] ], [ qw[this is line two] ] );;

pp \@AofAofWords;;
[
    ["this", "is", "line", "one"], 
    ["this", "is", "line", "two"]
]

print $AofAofWords[ 0 ][ 3 ];;
one

print join ' ', @{ $AofAofWords[ 1 ] };;
this is line two