print "foo\n";
print "@{$test->{gum}}\n";
if (grep(/^$tag$/), @{$test->{gum}}){
 ...