open COMP, "+>$file"; 

print COMP "$var1\n";
push @comp, "$var1\n";
<some stuff>
print COMP "\t$var2\n";
push @comp, "\t$var2\n";

my @array = <COMP> 

##</code><code>##

 
@array ne @comp