use warnings;

thing(\@FooBar);
for (@{$FooBar[0]})
{
  print "$_\n";
}
for (@{$FooBar[1]})
{
  print "$_\n";
}


sub thing
{
     $REF_array = shift;
     $REF_array->[0] = ["some","values"];
     $REF_array->[1] = ["some","more","values"];
}