# ...snip...
   my @cases; # make this an array
# ...snip...
        foreach(@goods){
                if (s/$caseid//){
                        push @cases, $_; # add caseid to array
                }
        }

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