my @fhs = map { open my $FH, '<', $_ or die $!; $FH } @filenames;