in reply to reading from an arbitrary number of files using anonymous file handles
...as JadeNB said. Or use readline:
my $line = readline $files[$num]; [download]