...
# my $this = <$files[$num]>;  
  my $this = readline($files[$num]);
...

##</code><code>##

unless( ... )
{
...
  $unique{$this}++;
...
}