my $check = m/$mystrings[N]/;