#!/user/bin/perl -w

#note: %hash1 contains modified functions,
#which has been extracted from a C source file(Test1.c).
#this hash is used for referencing purposes

@array = %hash1;


##</code><code>##

#initiate a loop counter
$loop = 0;
#using for loop to get rid of new line in the array
for (@array){ $array[$loop] =~ s/\n//;  $loop++  }


##</code><code>##

#opening file for writing  
open (Done, ">sim.c") or die "Can't open sim.c :$!\n";


##</code><code>##

#initiating a new hash and a string for later use
%hash2;
$done;


##</code><code>##

#a for loop to help popping all the elements in array. 
for (0..6){        
   $fish = pop @array;
   $fish = pop @array;


##</code><code>##

   #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>##

#print each key of the hash to verify result
foreach $done ( keys %hash2){
print "$done\n";
}


##</code><code>##

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