for (0..6) {
  $fish = pop @array;
  $fish = pop @array;

  #opening of working file, which is to be compared with
  #the reference array(%hash1)
  open (Local, "stub.c") or die "Can't open stub.c :$!\n";

  for $local(<Local>) {
    $local =~ s/\n//;

    #this is used to compare the 2 variable
    #if there is no match, assign it as a key to a hash
    unless ($fish eq $local){
      $hash2{$local}++;
    }

    close Local;
  }