my %HoA = { FirstVar=> [qw(Firstref Secondref etc)],
            SecondVar => [qw(SecondvarRef1 Ref2 etcetc)]};

#To access,
my $varname = 'FirstVar';
foreach (@{$HoA{$varname}}{
    print "Variable $varname ref: $_\n";
}