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