${@Fld}=@test; ^ ^ | | scalar array #### my @test=(11,22,33,44); my %Fld; @Fld{'LCD','XCOORD','Y','Name'} = @test; print($Fld{Y}, "\n"); # prints 33