@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