my %numbers = ();
my $output = "";

  open (DATABASE, "$data_file_path_1") || &file_open_error
        ("$data_file_path", "Display Frontpage",  __FILE__, __LINE__);

  while (<DATABASE>)
    {
    $line = $_;
    chop $line;
    @fields = split (/\|/, $line);
if ($fields[$index_of_status] eq "ok") {
$category = $fields[$index_of_category];
$numbers{$category}++;
}
$numbers1++;
push @goodads2, $line;
    }
    close (DATABASE);
print qq~
<font size=5><b>$session_username</b> you have <b><font color="#ff0000">$numbers1</font></b> .
</font>
<p>~



open (HITS_FILE, "$location_of_hits_file");

  while ($line1 = <HITS_FILE>)
    {
       chop($line1);
      @fields = split(/\|/, $line1);



if ($fields[1] eq "$session_username")
{

push @goodads, $line1;
push @goodads1, $fields[0];

#print qq~ $line1 ~;


}
    }
        
}
else
{


}

close (HITS_FILE);





open(DATAFILE, "$data_file_path_1") ||
    &file_open_error("$data_file_path_1",
      "Read Database",__FILE__,__LINE__);
  while(($line = <DATAFILE>))
    {
      chop($line);


my @allgoodads = (@goodads2, @goodads); # two sets of data
@sorted = sort {$a <=> $b} @allgoodads; # sort numerically

foreach $line (@sorted)

{
  

    
@fields = split(/\|/, $line);

################other code here

last;
    
   } # End of while datafile has data
   close(DATAFILE);
print qq~
</table><p>~;

my @allgoodads = (@goodads2, @goodads); # two sets of data
@sorted = sort {$a <=> $b} @allgoodads; # sort numerically

foreach $line (@sorted)

if (@goodads2 row is = @goodads)
###do this
my @allgoodads = (@goodads2, @goodads); # two sets of data
@sorted = sort {$a <=> $b} @allgoodads; # sort numerically

foreach $line (@sorted)


else {
#do this row not in both list
push (@allgoodnot,  @allgoodads ) #row that is not in both list
}

my @simpsons=("homer","bart","marge","maggie","lisa");
my @females=("lisa","marge","maggie","maude");

my %simpsons=map{$_ =>1} @simpsons;
my %females=map{$_=>1} @females;

# the intersection of @females and @simpsons:
my @female_simpsons = grep( $simpsons{$_}, @females );

# proof it works
print "Female Simpson:\t$_\n" foreach (@female_simpsons);

# the difference of @females and @simpsons

my @male_simpsons=grep(!defined $females{$_}, @simpsons);

# proof it works
print "Male Simpson:\t$_\n" foreach (@male_simpsons);
my %union = ();

# the union of @females and @simpsons
foreach(@females,@simpsons){
    $union{$_}=1;
}

my @union2 = keys %union;

# or just do this
# my @union = (@females, @simpsons);