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

##</code><code>##

foo
Not an ARRAY reference at line 16
foo noo goo