my $Search = qw(6280);

if ( @found = grep { $_ eq $Search } @array)
{
      my $found = join ",", @found;
      print "Primary Diagnosis: Meningitis, $found\n";
}
if ( @found = grep { $_ eq $Search } @Encephalitis_77 )
{
      my $found = join ",", @found;
      print "Primary Diagnosis: Encephalitis, $found\n";
}
else
{
      print "Sorry, \"$Search\" not found in diagnosis list\n"};