unless ($fish eq $local)
      {
          $hash2{$local}++;
      }


##</code><code>##

function1<br>
function2<br>


##</code><code>##

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br>


##</code><code>##

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br><br>


##</code><code>##

stubfunction1<br>
stubfunction2<br><br>


##</code><code>##

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;
  }


##</code><code>##

open STUB, "stub.c" or die "Cannot open stub.c : $!\n";
  while (<STUB>) {
    chomp;
    # $_ is now a line from stub.c,
    # and we have to decide whether to print it or not.
    # If it's a key in %hash1 we don't want to print it;
    # otherwise, we do:
    print "$_\n" if not exists $hash1{$_};
  }


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/