my @LON;              # array 
$LON[0][0] = "Tim";
...
return \@LON;         # return ref