Select Code to Download

my $config= 'A' eq $test
            ? \%config_A
            : \%config_B;

my %config= (
    A => \%config_A,
...

my $config= $config{ $test }
    or die "Unknown test '$test'";