foreach(@goods){
    if (s/$caseid//){
	$cases = $_;
     }
}