my $Rec_Ref = [1,2,3,4, 'name'=>'panic','age'=>'34','data'=>'10.98',}];

print $Rec_Ref->[4]{'name'}."\n"