Select Code to Download

push(@Test,{
    A1=>$ref[0]->[1]->{A1},
    A2=>$ref[0]->[1]->{A2},
    A3=>$ref[0]->[1]->{A3}
});