my @log_files = qw( file1 file2 file3 ); 
my %file_handle; 
 
foreach my $filename ( @log_files ) { 
    open $file_handle{ $filename }, '<', $filename 
      or die "Can't open '$filename' for reading <$!>"; 
} 
 
foreach my $filename ( keys %file_handle ) { 
    print "Name of File to read next is: $filename\n"; 
     
    while (my $line = <$file_handle{ $filename }> ) { 
        # process file 
    } 
    close $file_handle{ $filename }; 
}