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


sub thing()
{
  ($REF_array)=@_;
  @Array=@{$REF_array};
  @Array[0]=([some,values]);
  @Array[1]=([some,more,values]);
}