Re^3: How to declare variables per loop

[vagabonding electron]

in reply to Re^2: How to declare variables per loop
in thread How to declare variables per loop

Thank you very much wfsp.
After overnight I thought even that it were possible to combine the title for the evaluation and the titles for the diagramms in one hash. One should then input a shorthand for the evaluation at the command line.
This below is just a fragment, I am tinkering now : -)
Thanks again!
VE

use strict;
use warnings;
if (!defined $ARGV[0])    {
    die "
    Please type the shorthand:
    THIS for This Great Evaluation
    THAT for That Small Evaluation
    ";
}

my $topic = $ARGV[0];

my %module = (
    THIS => [
    {
      name => q{This Great Evaluation},
      indicator =>    {
        '01' => q{The First},
        '02' => q{The Second},
      },
    },
    ],
);

print ${module}{$topic}[0]->{name};
print ${module}{$topic}[0]->{indicator}{'01'};
print ${module}{$topic}[0]->{indicator}{'02'};