%link = ();
push (@ { $link{"testing"} }, "fred") ;
print $link{"testing"};           #prints ARRAY(0x15d505c)