%hash2;
$done;

open (Global, "text1.c")
for $fish(test1){
open (Local, "stub.c") or die "Can't open stub.c :$!\n";

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

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

}
}

foreach $done ( keys %hash2){
print "$done";
}