open (FH, "<", $file1) or die;
while (my $line = <FH>) {
  chomp($line);
  open (FH, "<", $line) or die;
  my $firstLine = <FH>;
}