$Aoh{ testa } = @{ exec_select ($sql ) } [0] ->{ home1 };