my %link;
push @{ $link{testing} }, "fred";
push @{ $link{testing} }, "stan";
print join " ", @{ $link{testing} }, "\n";