my @FOO;

routine ();
print "@FOO";

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