hi, I really deserved to be shot and hanged for not identing my code!! A million apologies!

That was other people complaining about that. For me, it doesn't matter, partly because I spend entirely too much time looking at stuff like this, and partly because I'm an auditory thinker (so visual layout has less impact for me than average) and partly because I use Emacs, so if I wanted your code indented a couple of keystrokes would automatically indent it for me. However, you might find that indenting would make it easier for you to keep track of what's going on, especially if you're a visual thinker.

About chomp: I'm not sure if I was clear. It only removes newlines from the _ends_ of strings. I guessed that in the case of this code that's where they are, because each string is a line that you read from a file. Those are the cases where you usually use chomp. However, if you ever needed to remove newlines from the middle or beginning of a string, you'd want to use the s/\n//g;

However, for the last part, I wish to clarify some things with you. Because what I really want to get the functions that doesn't matches, to be printed out and not the count of the number of functions that doesn't match.

Yes, I was guessing that the code didn't do exactly what you really wanted. (That's why you posted here, after all, isn't it?)

I did tried what you suggested. And I traced the problem to the following code:

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

Right. This is the code that adds one to the count each time the line doesn't match. However, I don't think this is your entire problem...

because a hash would keep unique cases of whatever that is assigned to it,

Well, the keys are unique, but you're adding one to the value possibly multiple times.

Test1.c

function1<br>
function2<br>
[download]

stub.c

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br>
[download]

now we have 2 files to work with and the actual output is:

function1<br>
stubfunction1<br>
function2<br>
stubfunction2<br><br>
[download]

when actually what I wanted is :

stubfunction1<br>
stubfunction2<br><br>
[download]

So is there any other things that I can try to get the output that I want.

Yes, but you'll need to restructure your approach a little. I believe your problem is your approach to the loop. Here is what you currently have:

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;
  }
[download]

This loop reads stub.c six times (incidentally, why six?), each time taking a different string from @array and counting the number of lines in stub.c that don't match it. This is not what you want. What you actually want to do is read stub.c only once, checking each line to see whether it matches any of your strings, and print it if it doesn't:

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{$_};
  }
[download]

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