sub routine
{
  my $arrayname = "FOO";
  my $string = "@${arrayname} = ('foo', 'bar');";
}