You can use readline instead of the <angle brackets>

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

In order to take track of unique lines, you might want to complement:

unless( ... )
{
...
  $unique{$this}++;
...
}
[download]