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

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