Don't use eval STRING for this, it's very slow and very dangerous.

Use a hash of arrays:

my %arrays = (
  FOO => [1,2,3,4],
  BAR => ['bla','bla']
);

my $arrayname = "FOO";
my @strings = @{$arrays{$arrayname}};
[download]