Select Code to Download

$LON = (); 
$LON[0][0] = "Tim";

my $LON ;             # scalar is array  ref
$LON->[0][0] = "Tim";
...
return $LON;

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