# ...snip...
   my $cases; # keep this as an empty string
# ...snip...
        foreach(@goods){
                if (s/$caseid//){
                        $cases .= $_ . ' '; # append caseid to string
                }
        }

# ...snip...
        print h2('Cases'), $cases; # print the cases
# ...snip...