@test=(11,22,33,44);
@Fld=('LCD','XCOORD','Y','Name');
@Data{@Fld}=  @test;
print "Y($Data{'Y'}) N($Data{'LCD'})\n";
# until here all works fine

${$Fld[2]}=$test[2];  # <--- works
${$Fld[3]}=$test[3];  # <--- works
${@Fld}=@test;        # <--- does NOT work, why ?!
print "Y($Y) N($Name)\n";