for (my $mid = 0; $mid < scalar(@mgid); $mid++) {      
    my $message = "Not a valid MGID = $mgid[$mid]\n";
    my $message2 = "Found record with MGID = $mgid[$mid]\n";
    check_mgtid($mech, $mgt_id[$mid], $message,$baseUrl."/search");
}

sub check_mgtid {
    my ($mech, $mgtid,$message,$searchUrl) = @_;
    $mech->submit_form($searchUrl, 
	          {
		    with_fields => {
			              mgt_id          => "$mgtid",
		                   },
		  },
	          "$message",
	);
}